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19 I 

39 TS84A 

31 TS84A 
34 TS84A 
38 TS84A 

37 PAC 
.. 3 .J. 

16 I 

6 TS84A 

32_..S 

36 S 
9 I 

JL2..B- - 
3 PMT 

15 TS84A 

._.6 TS84A 

10 TS84A 
6 TS84A 

34 TS84A 

38 TS84A 
3 TS84A 

11 M 

17 PMT 
22 PAC 
21 PAC 

6 S 
27 TS84A 

16 TS84A 

10 PMT 

11 PMT 



WH0Q 

WINB 
WPMT 

WR11 

WR3 

WR6 

WRQB 

WRSB 

WS1 

WSRRL3 

XO 

X4 

XsExEC 

XDIR 

XPB 
XT1 
XT13 
■XT* 
XT8 

XWR2 
XWB41 

XWR45 
XWR4E8 
XX 20 
YEAR 

YPTAB 

ZDAY 

ZH9UR 
ZM8NTH 

} * PRM 

„/*NQN- 



13 
9 
8 
2 
1 
1 
9 



11 
11 

11 

11 
3 

3 

3 

9 

14 



7 

14 
27 
1 
32 
35 
16 
12 
25_ 
18 
29 
33 
16 
36 

5 
4 
16 
X 

11 

7 

35 

39 

4 

12 

5 

24 

ai 

24 

19 

9 

4 



PAC 

w 

I 

TS84A 
TS84A 
TS84A 

W 

W 

I _ 

I 

s 
§ 

PMT 
I 

S 

TS84A 
TS84A 



TS84A 

TS84A 
TS84A 

TS84A 
TS84A 

M 
S 

PAC 
TS84A 

TS84A 
TS84A 
PMT 

PMT 



o 



o 






IDEM 

NOLIST EaTiSTAT 



6/21/72 14:51 
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# ■ SYSTEMTLAGS, 8PDS/ PARAMETERS! AND MACR8S 

* ASSEMBLY F LAGS 

AL8G Eau I;* ASSEMBLE LOG ROUTINE A^D CALLS* 
137&KS EQJ -!;♦ 3UPRESS SIDEWAYS FORKS. 



ST 



Ef 



uw 



u 



EXEC EQU 
EXPMT EQU 1 
PH2 EQU 1 



•1 

Expanded 

1= PHASE 



PMT'S, 
2 MUX 



STATISTICS, QmdFF, 1*8N 
TS BL8CK ASSEMBLY SWITCH 



RE EQU 
IIH „ E ^U 

L O I r r C.QU 



PHP 
PH f ? 



FPH EQU 
DISC EQU 
RP EQU 



LlSTAB EQU 
PTICKb EQU 



INPUT OVERRUN INHIBIT (ALTMQDES T60)t 

J PDI_CHAN5ES F6R FLOATING P8INT 

•1 SIMULATE: FLOATING POINT HARDWARE WITH *1 

DISC .1 F6R NORMAL DP* 2 F8R EXTRA DP DISCS# 3 F8R 231^ 

__ri ?.a^_*._£PUi._i_t_Tfiu_.. 



* spds 

SBRS 
TSN 



8PD 
8P0 



CKN 
CKF 

LRR1 



LRRS 
"LRR3 



bPD 
epD 

_6PD 
GPD 

epu 



173B5 

.U0.2220..G0.b/ 1. 

c' c Q 1 U G £ * i 
0G22Q2GQ8# 1 

,_C'..Qcl2i}4.UQ£>/.i 
uO?210QOd# 1 

0Q^214Q0ci* 1 



ABSOLUTE LISTING PARAMETER 
PTJCk pUG flag 



SYSTEM M8DE BRS 

GO FR8.M NORMAL TS M8NIT8R M0DE 

TURN 0N THE CLOCK 

TURN 8FF THE CL8CK 

LQAD RELABELLING REGISTER 1 

L8AD RELABELLING REGISTER 2 

LOAD RELABELLING REGISTER 3 



# MACR3S 

LISTM MACR6; IF LlSTAB fiBLlST A^L 

LI_ST __ LCT/SRC/C_OM/ExP#ExT/Ge 

ELUEj ""Sift'LTST "ExT^STAt; ENDF; ENDM 



DEFL 
PIR 



LMACR8 QjD(O) EQU L0C;L8C EQU 10OD(1)J ENDM 
MACRa; b^ XDIR; ENDM DEBUGGING AID 



EIR 



,CR6; bRM xEIRi ENDM 



MLABEL MACK'8; xMA RRL3; LRR3; PQT RRL3; ENDM 
* BREAKPOINT 



PAGE 



BPT BPD" 
* i/e DEVICE 



test 

040200006,1 



TTYS" >.AC~R&; 
TTVSKS EGU 

E?D BPD b b r j 
IOSDW EQU 
I9RDW EQU 
« PARAMETERS 



9PD'S 
~0ATA""26?77777B; 

a4u77oooa 



ENDM 



NP9P 

RDP 



Rw'P 
RSR 
RTR 



EUiJ 
t (j» J 

EQU 

equ 

ELtU. 



"rSp eg 
* w buffer 

NTAPE EQU 



ai^2Q0u 

<?14C0gb 

'4 4 
I0p__ 
Up 
0607c 
J..2..U 



-)P 



ntrtrT~e"g 

NTWTRY Efju 
* 



7 
y'ICE 

3 



PARAMETERS 



LAST BERKELFY BRS. 

NUMBER $F SYSP0PS IN USE* 

REAL CISC PAGE 

REAL Vi PAGE 

SET ROUTINE RELABELLING 

TYMNE..T_dUEFERS _ 

REAL STATISTICS PAGE. 



NUMBER 9F REREADS 
NUMBER dF REWRITES 



ALARM 

SUP AGE j^ 

fc, Vj 



TYMNET SYMpSLS 

ny st er the tymnet 

fc. Ui w civ' O 



o 



__^ __1L* 

UPFL EQU 21?B 

# base puts brm 

# 216B GETS PC i 



iUFFERS AkE IN PAGE 12B 

wHEN N8N ZERe THE BASE S9UNDS AN ALARM 

_ Pe.INTS.._m. SUPERVISORS. PAGE 

AND 213 SEE PACG61. TYMNET CLOBBERS UPFL PERI6DICALLY. 
214B T8 I INDUCE M8NIT8R CRASHt 
if_ BASE UPON INDUCED CRASH t 



TYMPAGE EOG IPb 

NTBI EuU cCOU 
NTB8 EGU 



TBI 
ETBI 

TBS 

ETB8 

NP8RT 
TRATE 



E.QU 

Equ 
Eqj 



E Q U 

Equ 



^006 

3400013 

TBUNT'uI 

tTB]_ 
'TB9 + Nft9 

64 

ETB9 



NUMBER OF CELLS FSR TYMNET BFR INPUT 
TYMNET BUFFER INPUT (RING BUFFER) 
euPyT RING BUFFER 






© 







o 



-^L^jP 



TFl EQU TRATE + .JP&RT 

TF3 EUU TFl+NPtfRT 

TF4 EQU TF3+NP8RT 

T128 EQU TF4+NP5RT 

IP EQU T12S+64+J 

TC EQU TP+N P8RT+g 

* P&RT FLAG DEFINITIONS 



M 



PAGE 



#####*###**###########*######*#####♦<*## 



MO EQ J 1 ; XXLJ^ULiMZ _,£.QU_»j,.)Q<3-_£aU__L0Bj-XX»-£Qy_20B-i XX5 EQU <fOB 

XX6 EQU 1B2/XX7 EQU 2B2JXX10 EQU 4B2#XX11 EQU 1B3;XX12 EQU 283 
XX13 EQU 4fc3;XX14 E&U 1B4;XX15 EQu 2B4;XX16 EQU 484JXX17 EQU IBS 
XX2Q EQU 26S;XX?1 EO) 4o5;XX22 EQU 1B6;XX23 EQU 266jXX24 EQU <*B6 
XXP5 EQU JB7;xX26 EG5U 2B7jXX27 EQu «*B7 

FROT XX0>XX1*XX2#XX3/XX4>XX5#XX6/XX7 

F R G 1 _JcX1£jlXX11 i JkX.lSi.XX LliLXXl4U-XXia^XX16^X X 1 7 



FRGT 



xxaO# XX21# xX22i XX23/ XX24# XX?5# XX26# XX27 



FLAG MACR9 D GENER ATE 2-- FLAG SYMB0LS«aNE FOR MASKING/3NE F8R SHlFTINGt 

* EXAMPLE dETA IS A 6 BIT FIELD IN BITS 7*12 WHICH NEEDS T8 BE 

* SHIFTED 12 PLACES T8 BE NORMALIZED TO THE L8W PART 8F S6ME REGJST8R. 
_* FLACi_iiETAj77*H GENERATES (bLTAY EQU 11B) F8R SHIFTING 

* AND (BETAZ EQU 77B3 ) FOR MASKING 
D(1)»aZ ECU D(3W,b SHIFT OPERAND 

D(1)«&Y E C.U XX»AD(3)#D(2)tAB MASK ^R BIT 



FRGT D( 1 ) »aZ*D( 1 ) »aY 

en: 



m 



TLAG" 

flag 

FLAG 



FLAG 
FLAG 

flag 



FLAG 

flag 
flag 



IN Tf 1 

Cii,./ l/o 
AUx* \»1 
uU 1#_2 
DE# 1*3 
GREEN* 1/4 
.....ZI/.1/5 

II hi 1/6 
135/1/7 
531/ 1/1 Q 



CQ^DEMNED CIRCUIT 
AUXILIARY CIRCUIT 
DISMISSED BN INPUT 
DEFERRED ECH8 IN EFFECT 
GREEN bALL T8 BE RETURNED 
CHARACTER 7 IN USERS INPUT BFR 
INPUT INHIBITED 9N AUXILIARY CIRCUIT 
135 SWITCH COCKED T8 8UTPUT BLANKS 
SyPR£SS X35 _JWiLT£H 



=1 

o 

• 






FLAG 
FLAG 



FLAG 
FLAG 



flag 
flag 
Flag 



FLAG 
FLAG 
FLAG 



FLAG 



Voc* 1* 1 1 
108* 1* \2 

G$p* i $ i3 

MAR,l # l<* 

MARS* 1/15 
aQFF* 1*16 

_LCii*l#l7 
38/1*23 
LCI*J*25 
_X*_ 1*36 
M*i#27 



euTPUT 212*215*377 FBR TC8 .152 
8UTPUT 213*212 FOR TC8 »155 

QUTPUT .212 .BR 342 F8R TG9 *102 AND 

8UTPUT 214 8R 345 F6R TC8 p105 

CHR G80BLER RECEIVED 

AT LEFT MARGIN 

SUPRESS LEFT MARGIN FLAG 

TERMINAL NBT INPUTTING IF X8FFY*1 

L8 w£h_CAS£ ..BUT PUt - 

8 LEVEL OUTPUT 

MAKE LeWER CASE INT8 UPPER CASE 

TERMINAL CAN -UNDERSTAND X*8N, X-8FF CHRS 

8 LEVEL INPUT 



M 



PAGE 



FLAGS IN TF2 



FLAG 
FLAG 



JB* 77*0 
R C * 3 * 6 



FLAG 

flag 



J8B 

RATE C0NTR8LLER 8ITS.OQ N8 ACTIVATI8N 
DELAY. 01 N8 DELAY. 10 DELAY 2 SEC. 11 DELAY 3 SEC 



FLAG 
FLAG 
FLAG 



>R<*7*11 
•113* U 14 



FLAG 
FLAG 
FLAG 



FLAG 
FLAG 

FLAG 



S9FT#1,15 
HARD* 1* 16 

bl68* 1* 2U 
DIAL* 1*23 
Y E L * 1*84 
b8* 1*25' "'" 
8RA*l/26 

eiH*us7 



3 BIT FIELD. 

IG.N8RE S0FT 
S8FT EGCAPF 
HARD ESCAPE 
feRS .16.1 HAS 
BRS 16<i HAS 
ALL8w REM8TE 



ONE BIT 8N F8R BREAK TABLE, 

AND HARD ESCAPES* BRS 113*114. 
8N PHANT8M USER 
8N PU 

DISARMED HARD ♦ S8FT ESCAPES 
DISARMED HARD ESCAPES 

DIALUP 8N THIS P8RT 



SEND 8UT A YELL8W BALL AT DISMISS TIME IF 
TYPE 5 BUT t TY5 C8DE ACTIVATED BY CAC7. 
WAITING F8R ©RANGE BALL. SEE CAC9. 
OUTPUT INHIBITED. USED BY SCHEDULAR. 



SET. 



FLAGS \\\ TF3 



* TF3 DESCRIBES THE BITS THAT DESCRIBE THE TERMINAL 

» CHARACTERI STICS. THEY ARE PASSED FR^M THE 940 T8 THE REM8TE AS 

THE FIRST CHARACTER 8F EACH PAIR IS A It THE 

.„ . „,,.,,. ^^ ,,..,. ~,.~ . ~.- -.-. ~~ THE 



* CHARACTER PAIRS. 



SEC0ND CHARACTER IS V CHARACTER 'wiTH t'wb' *'bIT FIELDS* THE 
FIRST FIELD IS A TYP E FIELD AND THE SECOND FIELD IS DATA _ g ITS. 



\J 






* BITS ARE NUMBERED FR6M LEFT T8 RIGHT. 

* IF THE DATA bIT IS C)N# THE C8NDITI8.J IT DESCRIBES IS ACTIyEi 

JLJ^PIO^ECHajNil ECHd C0NTR8L Uc ECH8 _£RaRB. T8 . LINE FEED/ 
^ 3 ECHO LF T6 CARRIAGE RETURN* 

* TYPE i; CR DELAY/1-3 INPUT BAUD RATE 

» TYPE 2: g* g 9UTPUT BAUD RATE, 3 REQUIRES PARITY. 

* TYPE 3: Q"£ PARAMETER A/ 3 HALF DUx' 

* TYPE 4? 0*2 PARAMETER B 
» TYPE 5; (>3 P ARA ME T LK_C 

* PARAMETERS A # 6/ AND C ARE USED TO COMPUTE CARRIAGE RETURNS 

* AS F6LL6WS; F(N J -MIN CN/(2aA)+B#C3 

« PARAMETERS At B/ AND C ARE USEd_T8 C6MPUTE LINE FEED DELAYS 

* AS FOLLawS! IF N*l/F (N)«A 

* OTHERWISE, IF C>N# F<N)»C<-* + B* 6THERWISE F(N)*B 



M 



PAGE 



FLAG 
FLAG 
FLAG 



FL^G 

FLAG 



ECHO, i t 27 
TA&# \t2h 
CLF M/S5 
HUUX# 1# 10 
ECR* 1/24 



P6RT CAN ECH6 
ECHO C9NTR6L I 
ECHO LF_AS CR/RB 

DN IF TERMINAL IS 
ECH3 Ol AS LF 



HALF DUPLEX 



FLAGS IM TF4 



FLAG 


TERMC/777,0 


FLAG 


5A/7# l'o 


FLAG 


1 3 6 C 1 377/20 



6 LEVEL INPUT TERMINATING CHR 

A REGISTOR F8R USER FROM INPUT TYPE £> 

135 bLANK COUNTER 



SET 



RST 



MACRO D 3ET SNE QF THE P3RT FLAGS 



LDA D(l); SKA D(2)#2; BRU *+2; ADM D(2)/2; ENDM 
MACRS D [<ESET..QNE..8F THE...PBRT FLAGS 



LDA D(l)l CSiPY Ab/N; SKB D<2)/2; ADM D(2)/2; ENDM 

END 9F P&RT FLAG DEFINITIONS #**####*##*#*#*#*#*#♦.*##♦#*##*#♦#*## 



ET6UF EQU 377766 



* PAC TABLt"~PARA"METERS m PAGE 
£ NSQU EG)u «f NUMbER OF CLOCK CYCLES IN SHORT QUANTUM. 

NLQU EQU 125 FULL QUANTUM SIZE* 2 SECt 

NPAC EqU 130 NUMBER OF PACT SL8TS 

£ NPPAR Eyu S LENGTH OF PACT ENTRY 

» J$B AND MEMORY PARAMETERS 

NJ0B1 EQu 38 NUMBER OF J8BS WITHOUT P«U» 

NJOb ESJ NjUbl+1 NUMBER OF J9BS 

U M SZ Efc U lb INITIAL MACHINE S I ^E 

NMEM EQu 32 NUMBER OF PAGES 

m NSMEM E^U 7 NUMBER OF PAGES USED BY SYSTEM 

;5 NSSMT Eq c 15 N0 ? OF SYSTEM PAGES IN SMT 

ir NUSMT E'jU 6 NUMbER OF NONPROPRIETARY SMT PAGES+1. 

H IF EXPMT 

O NCMPM E.Qw <*3 c COMMON PART OF jSf- R MACHINE* 

NSMT EQU 4 33 SIZE OF SMT. 

NXSMT EQU 116b NO. EXPANDED SMT'S. 

FESMT EQ U lQ0a__ FIRST EXPANDED SMT NUMBER? 

LESMT EQU NxSMT+FESMT LAST EXPANDED SMT NUMBER. 
ELSE 

NCMEM EQl u3i, COMMON PART 6F USER MACHINE 

NSMT Eat. tOc SIZE OF SMT 

ENDF 

NUMEM EQU 100b-NCMEM NUMbER OF PRIVATE USER PAGES 

NPUu E'Q^ NjOc; .NuMBFR UP PUCT ENTRIES 

* DISC PARAMETERS 

NFILE ECU 35+l*L)I3C NuMbER OF FILES THAT CAN BE ©PEN AT ONCE. 

N3UF EGu >+ rJuMBER 0F FILES THAT A USER CAN HAVE OPENED AT ONCE. 

M3UFX Euu MjuFx DEFJnES THE FILE IN USE BIT MAP. SEE TSBNI..U 

RPT NBUF 

M3UFX EUu"MbUFx/ii^Pb7y ENDR 

NDRG EC*U 7q NO, OF J8BS IN DISC QUEUE* 
If UISCsl_ 

* 2b'06'JB" 'SECTORS PER UISC.'4oOB DATA BLOCKS. 3600B ARE MAPPED* 

* 8 DISCS ARE MAPPED* 36006*3 BLOCKS ARE MAPPED. 36008*8«36000B 
TABIEC EQ u .....36U00B NUMBER OF BITS IN BIT MAP. 

***■ Vw ^ **"* 

TABIEC EuU S*20#20Q 8 RECORDS, ?Q HEADS/200 CYLINDERS TO MAP A 2314 PACK 

ENDF 



© 



^^ 












TABLfcN EQU TAbLEC+33jTABLEN EQU TABLEN/24 BIT MAP IN W0RDS 

MAxFIL EQU 3B7 MAXIMUM FILE SIZE J_N CHARACTERS^ 
NLVL EQU 6 
MlVt EGU NLVL*1 



PAGE 



* BUFFER MAP 



CBFC 
CBF1 



equ 



v-Dr £Z tyu 

CBF3 EQU 
C8F4 EQU 



u 

1 

fib 
101B 

3,416 



CSIZE 
CE9F 



CB&F 

CPT8P 

CQ 



L i* w 



Tou" 

EQU 



CdFl + 37t3 

CSIZE- I 



CEbF-i 
CB6F-1 

CPTOP-l 



CCKwRD EQv CQ-1 



_ 20 POINTERS AND FILE PARAMETERS. 

40 Pe inters. 

40 POINTERS. 

__.-.._...:..£ata AREA. 

no. of 256 word blocks* charge size. 
_ end_bf: file. 

beginning of file. 

highest l^c. ever written. f8r input. 

PHYS1CAL„FILE_ SIZE QUANTUM 
CHECK*8RD PUT IWT© HIGHEST XBLOCK TO REDUCE ERRORS 



CP 



_t_Qy C b 

b I T 2 2 * 2 3 
b I T 5 1 s- • 2 3 

_£1IS_ 9.-1.3. 
b I T S <f- 6 
BITS f; - 3 



bIT :) *L*AYS ZER8 



F4+4U03 CURSOR POSITION, 
OF CP TELL THE CHAR* POSITION IN 

CHAR. POSITION FOR QATA BLOCK 

POINTS T8 1 8F 

POINTS TO 1 OF 
PS I NT 3 TO 1 OF 



40b 
20ii 



DISC 
DISC 
DISC 



* BUFFER WORDt 
(BUFFER LEVEL.MLVL). 
ADDRESSES IN BFR MLVL-1 
ADDRESSES IN BFR MLVL*2 
ADDRESSES IN BFR MLVL-3 



CFLG 

C5W 



E\jiU 
EQU 



cswi 

CEaFl 



fc-Qw 
t QU 
E Q'<j 



END 



EQU 
OF BUFFER 



NPBW 



TS 



!m«. \J *j 

BLOCK 



CF + 1 
CFLo+1... 

C S i* 4- 1 

cswi+i 

CEQFl+1 

CC+NLVl 
MAP 

'C0V+l/'\D6w 
NDBW*N&UF 



POINTER TO GFLG. 

•1 FOR OUTPUT* FOR INPgT. 

"1 NORMALLY* FOR BRS 128* »1 FOR BRS 66 

LOCAL EOF FOR WIO AND CIO. Q*£MPTY FILE. 
CURSOR CHANGED. 1 WORD PER BUFFER. 
COUNTER FOR TOO MANY Wl0»S# ETC. 



EQU NDBW-CBFO 



NDBW»BUFFER SIZE. 



MAR 



„ A IF DOIFP m PAGE 8 

tsmaps equ 65 

else; 

tsmaps equ 55 space f6r ts map# can be changed* 

ENDF 

!;!?£- !JW 37 777S»NDBS-TSMAPSi» START ASSIGNMENT 

DBTOP DEF[T0~yST wBRD AFTER "PRSYMS '" 

FBADR DEFL NDBli FIRST BUFFER ADDRESS 

FBwRD DEFL 1 BUFJFER AVAILAJILTy oIT wBRD _ 

FILE DEFL 1 

GFILE DEFL 1 GLOBAL FILE N6. 

BUFF DEFL 1 _ .BUFFER ADDRESS, 

LVL DEFL 1 LVL TELLS WHICH TS hF« IN A FILE IS PERTINENT 

C3IP DEFL X POINTS TD DISC APRS, SEE SSETBIPS 

_ CP1. DEFL 1 WbR*I_NG_ST9RAG£j_ _ __ 

CPa DEFL 1 WQRKING STdRAQE* 

CRETO DEFL 1 START UP LOCATION (LBCt 0) F8R DISMISSED F6R«. 

CRET1 DEFL 1 REE NTRA NT MARK LeCATlftN F9R JCDMS! 

CRET2 DEFL 1 

% CRET3 DEFl 1 

CEET4 DEFL 1 

CTl DEFL 1 REENTRANT TEMPQRARY STORAGE 

# CTa DEFL 1 

CT3 DEFL 1 

CDS A DEFL 1 A REGISTQk „H£N JCDMS: WAS CALLED 

# CCSt DEFL 1 
CDSX DEF-L 1 

DGE'T DEFL 1 WHERE TG START LOCKING IN BIT MAP F9R BITS 

# FSIZE DEFL 1 DEFAULT FILE SIZE QUANTUM. SEE TS9NI, BRS92* 
LQ DEFL 1 LONG ^uANTUM 

PA DEFL 8 

# PB DEFL 8 
PX DEFL 8 



IF DLJ'I'FP 
FAC3. DEFL 1 
FAC2 DEFL 1 



• 


PP8 
NF9RK 


ENDF 
DEFL j 
DEFL 1 


POINTER T8 PB CHAIN 

NUMBER QF FORKS COUNTER 




m 






• 




^BfcW^ 




o 






o 



43 



DSKMET DEFL 1 

IF l37bRS 
PSSTK DEFL 3 6 
PSDEX DEFL 36 
MPSDEX EQU 30 
ENDF 



DISK METER* 



PAGE 



MAX eF FIVE NESTED BRS 137'S 



IF LSO40000B; DISASTER TS PAQE FULL; ENDF 

CHANGE JTSHAPS; AND THIS COMMENT IF M0RE THAN 100 1©CATIQNS ARE 

ALl&CATED BETWEEN JTSMAPS: AND HERE 



FRGT TSMAPS 
# TTY BUFFERS 6CCUPY REAL PAGE 128 AND 13B 



* MACR8S 

DEFINE MACR9 D (DEFINE CAUSES MDBG SYMB6LS TQ BE PUT INT© BINARY FILE) 

Dl _ NARG D;D£ EiU 



RPT DlTOe EQU 'D2 + iiD"(~D2)" EQU DTDa")i"ENDRj"" FRQT' 0i# D2j ENOM 

TRAP MACR9 D; fcRM TRAP; ENDM 



L3GG MACK8 D; IF AL9Ui" pRM L0G7 "~D(T> D(2~)j ENDFj ENDM 

ARMI MACR9 P; AIR; F8T 0< 1) i ENDM 

ENTRY_ MA CR8 L;EnTCNT NARu; RPT ENT^NT; L (ENTCNT ) EXT 

INTCNT E[»U ENTCNT-i; ENDR; ENDM 

SETINT MACR6 A; LLA .A ( J ) ; STA bLK3l; ENDM 

TDT MACR& L ;*L( 1)«^ E^U »; RPT . NT APE; L (2 ) L (3 ) • aB+#*L( 1 ) t aW; ENDR; ENDM 



RMFF MACRO; f;,u. 
SMFF MACRO; £ND?1 
TLA6EL MACR8 D 



wEN.. . ROUTINE T6 LABEL IN TTY BUFFERS 



D(1)«aL1 ZRB 

DU)«*l ZR9; XMA RRL3; LRR3; PQT RRL3; STA D(1).aL1j BRR D(1)«aL; ENDM 

TRP MACR8 L iENTCNT NARu; RPT EnTcnT;L(FNTCNT } EQU TRAP 



FRGT L(ENTCNT);ENTCnT EQU ENTCnM'j ENpR; ENDM 
LBL MACKS D;1Ll>L E^U 0(2); RPT D<2)j LDA D(l)+lLBL*l; IRSH 6 

1LBL EQU 1L BL-1; ENDR; ENDM _ _ _ 



IF 
IF 



DDIFP 

FPh 



FLSATINQ POINT HARDWARE MACROS 



* INITIATC 9UTPUT 6F M9ST SIGNIFICANT HALF 
IMSH6 MACR9 
EOr* 



NJ 



PAGE 10 



N A R 6 

IF 

P6T 



ELSE 
P0T 

ENDF 



307 218/2 

N : c i 

D(l) 

0(X )#D(2) 



ENDM 



» INI TIATE INPUT OF msj SIGNIFICANT HALF' 

imshi mac Re o 

E6 M * 30731B/2 
NJ NARG 



NS 



IF 
PIN 

ELSE 



n:»i 

U<1) 



pin 

ENDF 
ENOM 



i) ( 1 ) / D ( 2 ) 



* INITIATE FLOATING L#AD 

IFLD mac ks II _.. . 

E £}.*•'* 3y/20e>/2 



! m « m b 
IF 



PtfT 

ELSE 

P8T 



"ENDF" 
ENDN 



•'■i ! « 1 
U('l') 

J1(1>_>DJ_21 



* INITIATE FLOATING ADD 
I FAD MACR8 D 

E6M# . .32.7.2.g.&*.2 



n: 



NARG 
IF 

PfiT 



n;»i 

D(l) 











CTl 






^HpF 






ELSE 
POT 

ENDF 


( 1 ) # D { 2 > 


# 


ENDM 

INITIATE FLOATING 


IFSB 

In « 


MACKS 

E8M# 

NARG 



30733B/2 




IF 

POT 

ELSE 


■^ ( l ) 




PQT 

ENDF 
ENi;m 


( 1 ) # D ( 2 ) 



o 



o 
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# INITIATE FLOATING INVERSE SUBTRACT 

IFS6I MACH9 



EGM* 


307248/2 


NARG 




IF 




p&t 


'0 ( i ) 


ELSE 




POT 


D( 1)#D<2) 



EiCF 

u N w- i 



* Initiate Floating multiply 

IFMP MACKS u 
EtT.* 



n: 



N A ^ G 

IF 

_P&T 

Tlse 

P9T 
_ENDF 
ENCM 



.3.Q7.25c$# 2._ 

n:«1 
p .< 1..?. 

b(l)iD(2) 



INITIATE FLOATING DIVIDE 



IFDV 

n: 



n 



MACf<! 

EtfM* 

N'ARG 



307268/2 



IF 

per 

BMW W g jf . "** 



D(l) 



P8T 
ETNDF 

ENDM 



D ( 1 ) / D ( 2 ) 



* INITIATE FLOATING INVERSE DIVIDE 
IFDVI MACK6 D 



E£)M* 
NARG 
IF 



307276/ 2 



P9T 

ELSE 

P6T 



D(l) 
D(l)/D<2) 



E'iNiuF 

EN^i 



# INITIATE FLOATING STORE 
IFST MACRO 

Ed^« 307 30b#2 



NT NARG' 

IF .j;«i 
PIN 0(1) 



t- L. v> t. 

PIN 

ENDF 



u ( i ) * d { 2 ) 



END^ 

RESET FLOATING BVEKFLd" 



RFP9V MACftQ 

BRU 




30720B/2 



EnDF 

SkIF IF FLOATING AC NEGATIVE 



M 
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© 



JB^jJt- 



o 



o 






SWFAN MACR9 
IFST 



* 
HFST 



D 
T 
30721B/2 
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ENDM 

FLSATINQ P0INT MACROS 



* L8AC? F16ATIN3 ACCUMULATOR 
HFLD MaCnS D 

IF LP DlEJ 



IMSHS 
ENDh 



0(1) 



STPRE FLOATING ACCUMULATOR 

MACR6 D 
IFST D(2) 



IMSHI 
ENDM 



0(1) 



hFAD 



FLOATING ADD 
MACK6 D 
IFAu^ D(R) 
TMSHd Q'("i )" 

en:m 






* FL^ATI\o Su&T^CT 
HFSb MaCRS D 

IFSd DU) 



iMSHd 

ENDM 



(1) 



# FL9AT INCi SudTRaCT INVERSE 
HFSb I MACKtJ u 

IFScI U( ej._ 

U ( 1 ) 



I ms hq 

ENDM 



* FLSATIN3 MULTIPLY 

HFMP MACR3 

IFMP fc(2) 






o 

# 



• 

^ 



IMSH6 

ENDM 



D(l) 
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HFDV 



FUBATINQ DIVIDE 



MACR8 
IFDV 



IMGHS 
EnDM 



D 

D ( 2 ) 
D ( 1 ) 



HFDVI 



FL5ATI 

MACRO 

IFDVI 

iMSne 

EnDM 

e;ncf 



iq divide inverse 

Q ( £ ) .. . . 

D(l) 



endf 



* ExEC ENTRY POINTS 



EXECI 
EXECP 



Eq^ 
EuU 



10COOB 
100016 



8FFINT EQu 
CKCPU EUO 
CKCPU1 EQU 

# 
# 



1 C 2 o 
1 3 b 



CPU TIME 0VERRUN* 

CPU TIME aVERRl/N IF. IN. EXFC« 



F8RGET T1AU?B " ~~ """ " 

FRGT CRXF#fcPb#8RB/RTR,SQV 
FRGT M bUFx*PNxFj LPxF 



FRGT RTCNT* PNCNT/ TCNT* PLCNT# KT WT# PNWT# TXWT 

FKGT NTAPE#NUINK#NbUFX«NBUF 

FRGT NFILE#UMS2#TTYEW M/NFAONPPAR/Nj eB#Nj eBl/NCMEM 



© 



tx 









FRGT EXEOFCB/C18l#9*0M#ftELCHN*BE*RDP^RWP#RSRjRTR/Nei#NLQU#U0 
FRGT NF9RK*CAW*DAw/CADSC#DADSC#CASET*CAExEODASET/DAExE:C 
RiGL_.Di^f ILBULChv^/ T A8LEQ M37.C* (#£«£# DBB/ EXEC I z FS I z£, pQET 
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ENDM 
FREEZE 

END 



D 



o 



M 
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— — — ■ — ■ ■ ■— - ^^!jj(P - •■- - ^^^m- 



1 IDE.M 6/ai/72 14S53 - PAGE 

LI SIM 



$UNIT Gj* ACTIVE W BUFFER DEVICE NUMBER OR -1 

$ACTR 0;* ACTIVATION COUNTER 

$ XBP BSS NFIU E,_IABLE-F-QK INBEX_.BL0CK J^JNI£R& f _JNJTIALIZED-TO_. *t« 

$tXBP EQU # 

$GF LG &SS _NFIL E FILE ..FLAlGS INDEXED BY GFILE. 

* GFLACi FORMAT. GFLAG IS INDEXED BY A GLOBAL FILE NUMBER* 

* GFLAG CONTAINS JOB AND LOCAL FILE NUMBERS. THE LOCAL FILE 
_♦ luFFEfr AREA CONTAINS THE CELl CFLGj ? WHICH POINTS TO THAT 

* FILE'S GFLAG mHQ, HENCE* IT 13 POSSIBLE TO GET GLOBAL INFO FROM 

* LOCAL INFO 8R T8 GET LOCAL INFO FROM GLOBAL INFO. 
_± GITS Q.-6* INITIAL IZED TO ~1± ^INCREMENTED FOR EACH DISC JOB 

* THAT vj STARTED, decremented BY INTERRUPT ROUTINE* GFLQ {8R 
* INDIRECT CFLG,c) IS POSITIVE when FILE IS BUSY D8ING 1/8, 

* bI TS 7/* - LOCAL FILE .>uh.6EK T 3t B.I T 9 - ERROR DETECTED IN IDM 

* BITS 10-15 - jOb NUMBER 

• * UITS 16-^3 - FILE PRIVILEGE FLAGS 
$EGFLG E£ i » 

£ $riUF EC^g * TABLE OF LOCAL fcUFF ADDRESSES IN TS BLOCK 

*-3UF3 E U J -JUF-3 

SYMBOL EQU"TbAl;R " " """ " " " " 

# RPT Nb^F; OATA SYMBOL; SYMBOL E -3U SYMBOL+NDBWl ENDRj FRGT SYMBOL 

$BUFN EGio cUF+NbjF 



# CURSOR POPS #*##****# 

"ETO" P~Q~P~D "b7*VB"5 

$8I0X bR^* FSAVEl; BRU BI0X1 



PCE P8PD 533b5 POSITION CURSOR AND ERASE 

$PCEX BRM* FGAVE1; &RU PCExi 






SCP P8PD 53285 SET CURSOR P8SITI9N 

$SCPX SK S * 0; BRM M6NCR (KEEP M6NIT6R FR8M EXECUTING MARK L8CATI8NS); 
bRM* FSA vEl; BRU SCPXl 
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RCP PtfPp b31B5 

$RCPX BRM FSAVE; BRU RCPxl 



SSP POPD 52665 

$SSPX BRM* FSAVEl; BRU SSPxi 



RSP 



PCJPD 



!32^d5 



$RSPX BRM FSAVE; BRU RSPXl 



CIT PtjPD b3^bS 

tCITS ST A SSOli S TB SSQ2 ; S T X... SSQ3 



READ CURS6R PQSITI8N 

SET PHYSICAL SIZE LIMIT F8R A FILE 

READ PHYSICAL SIzE# SIZE LIMIT* AND CPT8P 

CHR INPUT AND TEST 



CIS 

cu 



CI3 



CHR I* 



IDA* 0; SKA *3777Qo; BRM TRAP; AxC; EXU # + l#2 

BRU TCJT; dRM TRAPj bRM TRAPj bRU CI2 

BRU CI5J BRU C I2-i BRU CI2; BRM. TRAP. 



CI2 jrt-DX 5UF1/2; ST/ 3UFP; P.K£__CS. ft jLiLj_.-B5^. TRAP-- 
H.SKE Cf-.L.3/Zi S.K:>* CFL.d#.2i~aSU..CFL3EX 



'LDA CFTap/r ; ; S*G CP>2; dRU CIS 
/LDA CP#2; RSH 2; ETR K377; ADD BUFF; AXC 

i_LSiH.„_2__tA_c&NT.lANS.._CHAR». ..PQ1NTER1J .LD.X CBF4#.2 (DATA W8RD ) 
\COPY Ax-#XA#Xb; EXu CI3'2 (POSITION CHARACTER); ETR K377 

S«Z SS01; u-.RU PGPXo 

D3 A CM A--jD MJN AFTER THE CI 9» _SFE _ WEx.3 AND Cg.56 CaDEt 



LDA ^EX3i STA -„Ex; bRU CIE3 

LDA <i37i >.MA SSQ1, SKE K137* qRU P^PX; BRU PBPXO 

_MIN CIQ COMPLETED wlTHdUT CALLING^ DISC DRIVERS^ 

LDo *EX2; STB *EX; BRU . PePXB 

LSh 8; RSH 3; NOP 0; BRM MdNCR 



CIS PQPD 561B5 CHR INPUT/OUTPUT 

$CIE STA SSOl; STb SSG2; STX SSg3 

CIE3 LDA* o; SKA »3777QBl BRU CJ8T1A; AXC; EXU ♦♦1#2 

u~cTwju~m\j cret'i'j bru'pqpxj bru chrw 



tiKi 

BRU CHRW; BRU CHR'H; BRU CHRW; BRM TRAP 

EGU » CHA RA CTER REAp/wRITE LOGIC 



I 'I 



o 






4F% 






LDX 3UF3/2; STX BUFF; SkE CFlG#2j SKN* CFLGjP; BRU CFLGEx 

IDA CP,2; ETR THREE.; SKN CSW#2; BRU # + 3i MIN CC+MLVL#2i ADD F6yR 

XXA; LC6 CHRw2*2; ST& CHKWlJ LQX_CNRW3#2i XXA 



PAGE 



ADD~CP#2T~SKG" CE8Fl#2; BRU ChRWO 

SKNi TIME; yRU # + 4; SKN TTIMEj 3KN ACTR; BRU CHRW4 

STA_CPi; LDA wEXli STA *EXj IDA CPt 2 

CHRUO XMA CP#2i RSH 2; ETR K377; AOO BUFF; C8PY AX#A#B 
CHRW1 o;* MODIFIED T8 ONE 6F THE FOULING I NSTRUCTI 8NS# 
CHRa2 dRw; CHR Q; jiRU CHRlj ^RU CHR_£j «RM M&NCR 

BRU ChfcO; i.,RU CH.n; SRU CHw2j sjRM MBNCR 
CHRW3 DATA 1# l# 2* 0* If 1> Z* 



CHRw4 LUS PACQMBJ LDa *UwE; bRU PdpDMS 



# ci a INRuT 



ROUTINES D EPENDING 0N ChAR> PDSITI9N 
UDA CBF4#2i LRSH 16; B«U WE'X 
IDA C6F4*2; RSH 8; ETR K377; B^U WEx 



CHRO 
CHR1 
CNR2 IDA CBF4» /2i ETR K377; BRU wEx 






♦ CIS OUTPUT ROUTINES DEPENDING Q,\ CHAR, P9SITI9N. 
X h ^ LUb SS01; RCY b; ^A CbF*>2; ETR_KlS5; ADM CBF4v2 



LDA SS01; LRU -EX 

CHW1 LDA SSoii FTR K377; LSH &; XMA CBF*/2i ETR *776G0377B; ADM CBF4,2 

L DA ,.SS_01_;_...1RU aEX _ 

CWW2 LDA SSuli FTR *377; aMA CBF4*2; ETR KM400; ApM C8F4#2 

LDA SSOU bRU *EX 



W I c? 



wRW 



P9PD 



5 6 i3 5 



*WIE 8TA 



wORD iNPUT/aUTPUT 



CTA SSQl; STb SS02; .STX SS03 



LDA* o; SKA »37770o; BRM TRAP; AXC; EXU #+1/2 
BR 1 "' TRAP; U RM TRAP; 3Ru PQPX; oRU WRW 
b R ^ _^ R a ; BR U w R w ; d R U J* R ^ ; BRM T R A P_ 

FuTu" * a 3RD REA'D/wR'lf E" L9GlC 

LDX 3UF3.2; STa bgFFj SKE CFLG>2j SKN# CFLG*2; BRU CFLGEX 
U^A__CP/2; SKA THREE; £RM TRAP (CURS8R MUST P9INT T6 A W8RDt) 
FQUR; SkG CEOFl/2; bRU wRWl 



AD' 



STA CPl; LDA irfExl; STA WEX; LDA CP#2 
mux xMA CP,2; KSh P; ETR K'377; ADD BUFF; SKN CSW#2 



BRU *R*2 < INPUT) I PAGE 

MIN CC+^LVL#2; CAX; LDA SSQlj STA CpFf*2j 8*U wEx 
WRW2 CAX; LDA CciF4*£ 



WEX BRU PftPxH (CHANGED 10 NOP JF CP GT CEOF1) 

STA SSG1; LDA wEX2i STA wEX 
CALLD BRM MRDSC; BRU C256 



WE XI NOP 
WEx£ BRU 
WEX3 bRu C I4 USED. B_Y_ CLT JO „MINQ_ AFTER .CIO RUNS. 

CFLGEX EyU * CFLG EXCEPTION. TRAP IF FILE UNOPENED. OTHERWISE, ASSUME 
» BUFFER IG l'USy AND DISMISS EvEN THOUGH BFR MAY HAVE BECOME FREE 

SKE CFU-3,2> BRM COMSl; B^M TRAP DURING THE LAST FEW MICROSECONDS 

$FTLINT EQU * FILE EXCEPTION INTERRUPT CODE. FILE EXCEPTION FLAGS JN Bt 
CBA; MRQ FILE; STA FLInTI 
SKN o; BRU FLINTS (DONT FLAG USER'S FILE WORD UNLESS IT IS IN 

CAB; LOX _ HIS MEMORY). 

LDA j, 6; C TR «77c»5i LDX SSQ3j 3KE *73B5 (IS HE EXCUTING A BRS)j 
STb* <Nfc# IT MuST BE A FI L E SYSPOP. FLAG HIS FILE WORD.); 

FLINT8 6R V MPPACTi LD/ PACPTR; LDA FLINTlj XMA SSOl 

STA FLl-NTi; LDA <2ob, bRM RIIRj LDA FLlNTll XMA SSOl 
SKA <26Si i,RU FQPX (EOF); BRM TRAP (FATAL EXCEPTION) 

FLINTI Q;* FILE WtJRD FLAGS • 402b.5 «EO.F # 4Q<fB5 jiERR* -«flOB5«.OUANTUM DEPLETION. 

$CDMS1 C;* DISMISS A USE* UNTIL ALL HIS W BFR WORK IS DONE. 
LO A _._jeB;_ A^D .CDMS1U; . CAB; _LDx -GilOj , BRU. NPO.PpS ... 



CDMS10 10B TT\5 ACTIVATION CONDITION 

$CDMS2 E cju *_ RETURN HIRE FQR ROUTINES DISMISSED BY JC 

STA SSOl* STB SS02; STx SSQ3 

LDA CRETu; STA 0; oRM Mppsc; 
LDA CDSA; LDd CDSB; LDx CDSXj uHR CRETl 



$MAYDMS EiwU * oRS 55. DISMISS IF USER IS RUNNING THE DISC. 
LDX...J8Bj_.. 3..KN . TTN0 # 2; BRU.P.tfPx; MjN OJ BRM CDMSl 



FSAVE 0;* SAVE REGISTORS AND SET UP FOR FILE SYSROP. CALLED BY 

» BRM FSAVE OR B RM* FSA VE1 FOR SKjPABLE SYSPOPS. 






#"V 



O 



STA 5S01; STB SSQ2J 5TX SS03« SRM MPDSC 

SKN' 0; BRR FSAVE 

UUA» Q; ciRM 10 J VALIDATE FILE NUMBER 

FILE «0*1# OR 2j 



PAGE 



SKG TWB; 6KU FSAVE2 

LDX SS03J STA* Oj LDX BUFF 
FSAVE1 BRR FSAvE 

WAS FSAVE CALLED INDIRECTLY* 
MAKE SKIP RETURN F8R PCE#SCP#SSP# AND Bl 
NON-SKIP FBR RCP#RSP 



FSAVE2 LDX* FSAVE 
bRx NPftPxa 
bRM npgpx 



# brs 130 break point test 

» skips i s 3reak poi nt switch is do'*n» 

* input: x«Si«itch numoER» 

$3PT£ST SKr, ExECl; 3RM TRAPj LDX SSOi 
U2i_.^G00j_._RSH. 0,2; XMA_.dPT2; .ETR.K.S5B3 



AQM 3PT? 
BPT2 bPT; MIN Qi BKU POPX 



* BRS IbS CHARGE ROYALTY PROGRAM jjSER 

* INPgT; A s nu-dER tJF CHARGE UNITS 

» N3 ski p: charge exceedej maximum ur caused ...an . bv.erflow 



* skip: units added to charge 

$BS158 ADD RPCHG; SkG RPMAX; SKG RPCHG; BRU PSPY. 
STA_RPCHG; MlN Q) pRU P$PX 



SNE PyPL: 536ub 

$SNEX SkE* C; 'U- Q; oRR 



SKP PUPD h^tbS 

$SKPX SkN* 0; min :j; BRR 



SKL 



sDTH 



Pypj 54 5 Bo 



skip if n0t equal 
skip if positive 
.skip__i.f.l,e;ss 



$SKLX SKG* 0; &R0 * + 2; BRR 0# SK&* 0* MlN Q; BRR 



ZRtii F.TR ADMS^j RSH 11; STB T; MUL . THREE J CBX 



LDA RRL2; LDB RRL1; LCY 6/2; ETR K37 
10 b T; LCY 11; STA T; bRR DTh 

$XpIR G; EBM 2QQCHB; B RR XDJR DlbAcjLE INTERRUPTS 



$XEIR 0; £QK 200026 ; BRR X EIR 
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$^LAb£L £RD >» ScT RRL3*A. SAVE 6LD *RL3 IN T4 
MLABEL; STA U; BRR RLAfcEL 

$SVlATS zPti j* BIQ BY *AY oF TS iH,9Ck. M$VE ONE. DATA. BL8CK* 



MIN *iR*i LlX FILE; LDA bLF3#p; ADD «CBF'4 

LDd* WR4; SKA aR5; XAB 

ADD 3V LDA; bTA BVCt)PY; CjiAj ADD BVSTA; STA BVC8PY+1; LQX KM^OO 



BVC8PY 0; o; BRX bVCQPY; uRR BVlATS 
BVLDA LDA 400B/2 
BVSTA STA _<♦&> B * 2. 



$BRMC Z^d; 

LDA# j^RAj ._LT_R...»3^0G.Qb.i... Myl^.»60.a00aj._.CAXj....tDB...WRlli. .. LDA *Rl2 



LCY 6^7 ETR~K37; ST A "iiRMCl"; LCY 6; ETR K37; CAX; BRR BRMC 

SBRMCt zRti 



**#•***•*#-*•# 



dUFFEk LOGIC 



* 8«S 100 ASSI'J-\i DEVICE TO CHANNEL N 

* DEVICE \UMBERS: 0»TAPE G* 1=TAPE 1/ 2«PR!NTER 

* INPUT: A = DEVICE NUMfcERj X-CHANNEL NJMSER dR -!• 

* RETuRns: Ne SKlPa£.R*9R t DEVICE ALREADY ASSIGNED* 

* SkIP = ASSIG:,MENT Qk« 
$AST SKN "blUj bRU P8PX 



AST; 



SKN SYSS; t ;RU * + 2; bRU AST2 
LDb XI; LD> Jdoi SkB CPaRW#2j aRU * + 2; 
SK G Tw£; SkG KM1; qRM TRAP; l.Da SSC3 
XXA; SKE IvU; l,KU * + 2; LDA UTTY; 



BRM TRAP 



XXA 



Skn TTYASG,2; bRM TRAP 
STA DEVICE; STx DEVCH 



* BRS 101 

SUAST Sk 



LDX TTYASG#cJ LDA PTAB/2J LRSH 15; ETR K77j STA Wj9i 
LDA <Ml; STA TPAR; MJN 

BRU PtjPX 

UNASSIGN DEVICE Ttt CHANNEL N 
3YSS; bRU * + 2; BRU UAST2 
LDB XI; LDX JQ p; SKB CPAR.W# 2 i dRU *+ 2.i BRM TRAP 



o 









UAST2 LDA <mi; STA DEVICE!; STA DEVCH; BRU POP* 

* BRS 104 '*i.H9 HAS DEVICE 

« 6UT PUT: A iDEVJCEi X» CHANNEL 
"WHT L^"Drvrc"E7~LDx"'"0E:"VCHi"BRu'"XPep 

* BRS 107 SET PARITY 

» INPUT; A N£G . F6R BCD (EVEN PARITY)# A P6SIT. FSR BINARY (©DD PARITY) 

$SETPAR LDA »77776777bi SKN SSQ1; LDA KMlV'STA TPARj BRU P®P* 

* 

* GRAB MEMORY rSR i* R8 U TJ.NE S_. _ 

•GRBMW ZR6; STA GRBM2; SRM MPPACTj LDb 0*6; STB 0#6j BRM MRWB 

LDA GRIi^a; BRR GRbMw 
GR8M2 ZRO 
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$TCL8 IDA TRTaijg; STA TCLDMSi LD^ TDS; LDX «QTI 

BRM MPPACT; IDA KMl; STA TNUM; STA WBIU; BRU P6PDMS 
TDS 4 TCLD^S 



TCLChS S<S 1041 06 (TEST TAPE READY)"; 6RU "PACACTj BRU PEST 
# TAPE. RE^D/wkI TL DRIVER 



$TRD ZRfj; LOX T.\UM; lOa «6B5; ExU ETTw#2j BRR TRD (END 8F TAPE) 
ExO TRTw,2; BRy TRD2 (TAPE READY); LDA *7B5; BRR TRD 

$TRD2 NO P Q (READ/WRITE TAPE BINARY.) 

$I9RD ^RR Iy*D AfiiRDt E5M 16000d» 
Pt)T TD2 
MIN_TRD;__C^A; bRR TRD 

INTERLACE P'QT W3RDt 0-9»W8RD C£UNT» 10*23»ADDR# 



$TD2 /R^ 

$TFIfS ZRS; LDA RLAL; ADD =180; STA TREAL 



LDA PACPTR; STA WPTR; BRR TF I N 

» THIS ChE .C<$ To SEE T_HAT A_ TAPE INTERRUPT HAS N$T 
* BEEN DELAYED FOR M0RE THAN 3 SECt^DS. 
$WCLEAN 

IF DISC»3 



BRR rtCLEA«\ 

ELSE 

LDA REAL; DIR; SKQ TREAL; BRU *C L5; EOH* Qj EI_ 



LDx wpTRj~lDA w'CL2; STA PTEST,£; SkR PU2j N6P I PAGE 8 

LDA wRAGE; MRq s RwP*64l MLABELi STA CLwRL 

LD A <4 &5; ADM* TMCA 
"WCL6 LD* <Ml;~STA' wtiiu"/" STA UNIT 

SKN TNUM; oRU WCL3j STA PRpMslj 8RU WCL4 
WCL3 XMA TN UMj CAX; SkR TPpMS,2* NOP 
WCL^ LDA xx; STA TREAL; SKN *PAGE| BRU * + 2; BRU WCL7 

DIR; BR 1 "! wREL; EIR 
UCL7 LDX /<jfcb; LD A k2c jC j; A DP TTN0,2 

IP DISCO " 

SKN DSv<; 8*M IDMGa 

ENDF 



LDA CL^RL; STA RRL3; LRR3; POT RRL3 

WCL5 EIR; bRR wCLEAN 

C L >< R L Z K v C 



WCL2 22b PACOMS 
ENDF DISC«3 



$TNR 


DATA 


$TRA 


DATA 


$TMAR 


DATA 


$TPAR 


DATA 


$ T N U M 


DATA 


SWPMT 


m 



$TCA DATA e CORE ADDRESS 
*TwCI\T DATA C wSRD CQuM 

MUMbER iif RECORDS 

RECORD ADDRESS IN PAGE 7 

Q_ _ CHANNEL MAR FR0M plN 

C TAPE PARITY. lB3»bI<«ARY 

-1 TAPB. NUMBER 

J _PMT ADDRESS 

$TPDMS DAT a'"-!,-! "I'Ap'E "DISMISS. ACTIVATE WHEN" NEGATIVE* 

$TPQMS3 I2u UNIT WAIT FttR ghlJT Ttf CLEAR 

$TMCA ZRS M eMT6R CQMMgNl CAT 1 0NS *8RQ LN PAGE 7* 

fCTMCA ZR Q j TMCA FDR CtfNTR9lS* 

$'WBIU DATA -i w BUFFER IN USE IF POSIT. D0 NQT CHANGE DEV ASSIGNt 

S^PTR ZRH _PACPTR 8F CQNTRQL FdRK. 

$DEVICE DATA -i DEVICE IN USE 0N w SUFFER 

$DEVCH DATA -i CHANNEL ASSIGNED Ta a BUFFER* 

$TPE DATA O/O MIN F9R EACH E8F AFTER TAPE END* 



$TREAL DATA 37777777b TIME ahIN TARE MUST FINISH* (REAL+3 SECt ) 

$TURL ZRe USER PAGE NUMSERt 

$FMK HLT» FMK2 __PQ_J wQKD F6R E 6F 



Xf 












FMK2 DATA 17B6 FILE MARK 

*Wj9b Z«6 C USER JS6 N6. 

SPRD6 Zke Q P RINTER PQT WQRD 
$PRDMS1 DATA -1 PRINTER ACTIVATJQ'n W©R0 

$NINT£ MIN ACTR; BRM wREl 



IF DISCO 

SK\ DS'a; tjRM I DM* 
LNDF 



LDX WjOb; IDA *265; ADM TTN0,2; BRU WRET 



PAGE 9 



WSA 



DISC AND >ii'-N-DISC « BFK INTERFACE ROUTINES ##♦**#♦## 
U;* - BUFFER INTERRUPT SAVE CELL 



NSB 
WSX 
WSRRL3 



$WPAGE 0; * 



USER'S LACKED PA&E 

return switch for ^rlt# o fbr t>RR> «i FaR bri 



WSAVE C;* SAVE REGJST&RS AND RELAbELLlNG F8R ANY W BUFFER INTERRUPT 
SKN rtSl; 3*R w$l; tjRR *SAVE 
ST A ^SA; 3Tb >$B; 3TX *SX; LDA RR.L3; ..'ST A. WSRRL3; BRR WSAVE 



wr 



v;* save 3,\ly -;nce Swicth 



$WRET ZL 



^^JP3^.A^'- ^K.^l3J^3.^.AhQ..Bxll, FR6M w buffer interrupt 



SkN wSa; bR*J * + 3; IDT; EIR 
MIN *S1; LDA ^SRRlj; MLAbEL 

_LD_A WSA; _ lDB ./WS[3; LDx W.Sx. 

S k N '•* S . ; m ; S K. R W 3 w ; , j R I ♦ 3 1 B 
IF ulSCO 

SKN ID**; ckJ INTJ1; BRR* 3ii 

ELSE 

bRI INT31 

ENDF 



WB Q;* i)Q A BKING 6N THE 16 BIT ADRS IN A 

ET rj *17^b3; RSH H; STA WPAGE; CAX; BRM DLQCKlj S^N WB 






wPFL 0;* RELEASE." *PAGE 

LDX rtPAGE; BRM DLQCKD^BRR WREL 
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SIMT31 0;* THIS IS THE GENERAL W BUFFER INTERRUPT ENTRY P8INT 
&R'l_.^_SAyE..;..__l?_PA wPAGEi. MRG _iRWP_#_64/. M.L.AJEL 



LDA <Ml; XMA UNIT; CAx 
EXU *+S/2; BRM MQi\jCR; yRN 

bRJ TRIM (UNIT s 1) 

oRL' Tfcl (UNIT = a) 

uRU CTLI (UMT s 3) 

jiRw TEOFJ (UNIT * 4) 

fc.Hu TFSFi (UNIT . 5) 

i3N^ TbSFI (Ui>iIT = 6) 

BRU _PRDI ___ (UNIT = 7) 



'NCR 



DISC DRIVER AND ASSOCIATED ROUTINES 



*###*«******** 



$DREAL DATA 37777777b SEE PU 3 SEC8ND ROUTINE 

* DRQ MAP 



* K8RD o: DISC ADDR. 

* ^8RQ \l 0-7*FlLE BR JOB NUMfcjER 8-23»C8RE ADDR* 
» W6RD g : C)sk/A» 1-4* INT» ROUTINE* 5-l0«j8& 

* W9RD a CftNTlNwED U-16-SL9BAL FILE NUMBER. 17«23«W8RD CQUNT/fOp 

* w9Ru 2 NEGATIVE F8R WRITE* 
$DRQ EQU * 



$TYMSET 0;# INITIALIZE TyMhET* CALLED FR8M SET. 
LDA P<LTYM; tjRM RLA^EL 

LDX »«*2-NPbKT; LDA sTBUF; MUL THREE; LSH ?3 
STA TP+NP8RT + U2* STB TC+NP8kT+1# 2; BRX *»2 
LDA »ETBuF#3'"l; STA TP+NP8RT 



LDX a-NTbl 

LDA TFREEC; LOb TFREEj STA ETBI#2; BRX *♦!; 3TB ETBl#2; 8RX *-3 

LDX »»NT #9 

STA ETb8/2j BRX # + 1; STB ETBtij£; BRX #-3 

LDX KM100; LDA n28A + lQQB>2; STA T128+100Bj2| BRX #*2 

LDA »22B5 ; STA ET_B J n ; „E?R. . WlA.31*Lll3l±RAJmM___%W± _ST A . T J X 






o 



o 



o 









IDA T4; bRM RL.A6EL 

BRR TYMSET 
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HISS MACRS D 

OAT A D(2)tAB<f + Q(l)»At*D(4)t A B4+0(3).ABiD<6)tAB4+D(5)tAB#D(8)»AS4*D(7)tAB 

ENDM 



T12&A EQv * 

M 1 2 S 0121*701 1*7011* 7 1 1 * 7 Q 11 * 7 .11 > 7 Q 11 * 7 J 1 



$GDC 



GDC1 



Mia8 7011*7071*7421*7011*7011*7431*7011*7011 

M128 701 1 > 701 1# 701 1*701 1/701 1*7011* 7011*7011 
Miafe 7011*7011*7011*7041*7041*7041*7061*7051 



Ml 28 441 1 * 741 1/ 64U* 641 1# 641 1*6411/ 6411/6411 
MIPS 64 11* 6411*6411*641 1/6*1 1*6411*641 1*6411 
M?1_Jl4JLL»_1 41_Lt.4_ 41 .U.4 4iI/„4^jLl*L4_41_Li_iL4J > Li .44 1 1 



Ml 28 4411*4411*6411*6411*6411*6411*6411*6411 
M128 6411*4411*4412*4411*4411*^413*4411*4411 
M 1 2 a 441 U 44Lll44 1_I# Ml U4 4JL1* 4 41^44X1*^44 1 1 



Ml ?h 44 H* 441 1*441 1*441 1*44 11*4411* 44H* 4411 
Ml 2* 4411*4411*4411*6^11*6411*6414*6411*6411 

_MAi;£_ 4.^01*. 45Q1.I.4SQ1* 4501* 4oQl*. 4,5Gl# 45Q1/.4.501 

Ml 2 6 450 1*450 1*4505* 450 1*450 1*4506* 450 1*4501 
Ml 26 4501* 4SQl*4b0 1*450 1*450 1*450 1*450 1*4501 
Ml 2S 450 1*4501*450 1*650 1*651 1*651 1*651 1*0121 



0*7 



40-47 



100*107 



140*147 



IF- I S C < 3 



V 



t> 



CORE A 



ORS> 



^_ET DISC T3 Ce.iE.. 
STd T; ST A Tl 
AR M I s6jjb; LDA Tj i<SH U 

UPA H 4J00 I^eRD_ COUNT ) ; LCYJ>;_STA 

LSH 19; lOa T; ETR »1464i CBx 

RSH 14; CX:^; Loh 5; MRQ sIQRpW; STA T3 

EXw ORT; _d>\U **■! _ _ _ 

EV^ ' 10026a"TALER"f DISC); ""P9T" Tl '" 

£0M* 1&4, exu T3; P9T T2 



A.. a DISC ADRSf 



T.5, 



26?6t 



DI53C READ 



EXv> DRT; OKU *-l; EXO DET; BRU GDCl ; EXU DCTj BRU **1 

BRR GDC 
ENDF 



BSS 3*NDHa+DRQ-# RESERVE 3*NQRQ CELLS BETWEEN DRG AND ORQU 

$DR^U EQU » END df DRQ 

IF DISC»3; IRQ THIS CELL MODIFIED AT MUX15 AMD BY DIM; ENDF 

IF DISCO 
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$IDMw DaTa ■! CALLED TJ START DISC AFTER N9N-DISC W 3FR INTERRUPT 
STA IpMwA; Sfa IQM*B; STx IDMW A 

BRK I DM30; BRU WR£T 
IPMwA C;» REJSTUSL THESE REGISTERS AFTE.R THE DISC IS D8NE* SEE 5JDM2! 

ID M *B U """ "" " 

IDMWX C 

$IDMG9 07* "JT'VE THE "DISC "CONTROL e'F""fHt"""w BUFFER 

LDA -3R'1W2; STA 31B; LDA BRMW3; STA 33B; LDA KMlj STA DSW 
CL A; STA UNIT; MIN wSkj BRM IpM; BRR IDMG6 

* 'I DM' <*/16/66 

* THIS IS TH_E DISC InTERRuPT ROUTINE. FOR ALL DISC 1/9 
T TDh MAkES ALL READS AT LEAST 64 *eRQS» 

IDMCK ZRP;* 1 IF AN INTERRUPT IS PENDING* OTHERWISE 0* 

DMQD DATA 6 LAST OCTAL DIGIT tfF CURRENT DP DEVICE ADRS. 

$DPC 0; * NUMuER 3F DP DISCS* SEE DRMSET. 

$NDCL 1Kb}* CttUNT 6F DISC COMMANDS I,. LIST 

$FDCL IR*;* CuRRENT_END_OF_J.LSI 

SIDCL ZR^i* CURRENT INTERRUPT POINTER 

$IDCL1 ZK r :;* CURRENT COMMAND EXECUTING P8INTER. 

IDCL2 ZRO 

I -01 ZRe CT~ " WORKING CELL"""" " " ' "' 

i Doe eo?'. i/acJB l/o control ebm 

ID03 DATA -21:0c, READ DIFFERENCE 

ID05 E8M 36668 " WRITE E.9M 

ID06 DATA -ID4QB READ DIFFERENCE 

IDSW1A E6M 10u26t3 ALERT DISK 

IDSWlu DRg 103 

IDCADD ZRG 

pR-MTRY ZR'J)* TRY-AGA I N C8UNTp8*h _ ._. 



o 



— 3H|uuiJ|R — 












$DS* 
* 



DATA -i THIS switch is positive when disc waiting F8R w buffer 

T9 bE FREED FRO* AN8THER W BUFFER UNJT 
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bR! 



INT31 



BRMWa BRM I DM 

BRMW3 BRM IDM3 

$DTXS1 zR Qj* . C 8 MM AN P C 9 U N T 



*DTXS2 Z^;* LAST COMMAND L8C 



$IPM ZK6 



DRT 

DET 
DCT 


SKS 

sks 

C u C 


10Q26B; 
11026b* 
11GQQB; 


BRu DRTl 

BRU ID7 
bRU ID7 


IDSW1 


bRU 


I D3 





IDE2 
IDE1 



ID4 



POT* 

E 8 m * 

~bRU~~ 
PDT 

bRU 



LDA 
LD A 



! f ' A 

XMA 

CAX, 



IDCL 
_ . _i_0_OUOb 
* 

IDCADD 
* 

v'^SAvE; SkR NJCL; 

REAL; STA DREAL; 

IDS^Il), STA IDS.n1 

IDCL; ADO THREE; SKE ■DRuUJ 



~~ DISC READY TEST 
DISC ERROR TEST 

DISC CHANNEL ERR8R TEST 

ALERT DISK OR BRU ID3 
DISK ADDRESS 
ALERT CHNL 

I/O C8NTReu EGM 
CORE ADDRESS 

R/w BUC 

NfiP (SAVE REG»#DECRt C8MMAN0 COUNT) 

MlN IDMCK 



. . BRU # + 2; LDA «DRQ; XMA IDCL 

IDCL1; STA IDCL2; 3kG <m 1; b ru |D5 (IDCL1 IS EXECUTING) 

XARMtfT_ 

""" LDA" "Wei RS'H" 11 ; """ETK K37;""CAXi BRM D18CKD 

LDx IDCLH; LDA 2>2; RSH 13; ETR K77; STA IDJ8B 

C AX; IDA Krbo; ADM TTNO/2; S_kN TTN8/2; MJN ACTR 

LDX I'bCL2; LDB 2*2; LSH 5; ETR K17; CAX; LDA IDT/2; ETR XX 

STA iDTx; SKG IDT/2; EXU IDTx 

CLA; LSH_ xu_ ETR_K77j ADD ^GfLGj_STA IDFILE 

SKw =GFLG; BRM MONCR 

LDA* IJFJLE; RSH lo; ETR THREE; CAX; LDA BUF/2; STA 

EXU IDTX 



(nxt cm' 



ID6UFF 



IDTRET LDA THREE 
ID5 LDA IDCL; 

TT76 



STA DRMTRY 



(DISC TRIES 4 TIMES) 



Ui \j 



STA IDCL; 



SKN NDCL> BRU ID6; BRU IDl (SETUP NXT CMND 8R wINDUP) 

SETUP NEXT C8MMANQ 
CAX 



LDb 0»2.i LSh 6; ETR TH REE; SkG DPC; BRU «»2j BRM. M8NCR 



SKG SNE; ADD SIX; SKE DMGDj BRw #+?; BRU ID6A I PAGE 14 

SKN IDCL1; t3RU 101; SUB DM&Dj ADM DM8D ' 

_^ W^T__A„M __Q£TJ ...ApM ..UJSVUAj _ADJ1 ID05 . .. .. .... 

ID6A XDA 1,2; LRSH 14; ETR THREE; STA ID01 (2 HIGH 8RDER QQR£ ADR BITS) 

CIA; RSH 5; LDA 2,2; ETR K177 (WQRD C8UNT/4QB) 
SKG QNE; LDA TwB ( w&Rp. CQuNT _1S__QB«l MKE II 1006) ; 



RSH bi STB IDCAOD 

ADD IDQ2; SKN 2,2; ADD 1003; STA IDE2 

LDBIDOI; uSH 29; ADM IDE2 



LDA IDSW3A* STA IDSWJ. (SET SWITCH T9 XEQ CaMMANDS) 
LDA IDGS; 3KN a, 2; ADD IPC6; STA IDEl (MAKE READ/WRITE E9M) 
SKN IPCL1; fc>Ry ...I.D.I.; dRU.lDSwi _.__. J.EXJT I F_ CMND ACT! VE ) 



1^1 S K N w S *■< i 6-^<J '/i ^ E T 
IF ST 

Sk\ STSw; LRU ID1A 



IDA »KSR; BKM DLGCKR; 3RM SSs 
2 sb£5+? 

1 ?_AL _ 

ID1 A Eu^ * 

C !, j ". t. 

SrO: IDCL1; SRU * + 2, BRU *RET 



* RtSTSKE STATE OF MACHINE/ THEN CHECK FQR L^ST INTERRUPT. SEE IF 

* IDCL1 C9MMAND HAS FINISHED* 

^1^.^S1;_Ll;a WSRRL3; MLABEL;... LDA_'WSA; LDB >S8; LDX WSX 



C^T* SkIP IF w 6FK w «Rp CQuNT REGIST9R * 0; fciRI IDM 

bru idm+1 (note that it is assumed that idm was called as an 
» Interrupt <did.nt check *sm» 
1^3 "b'rm ^save;"tda k^l;" bru""id^"vsetup t6 indicate n0 cmnd executing) 

iddr eq u *_ _prqc_ess data block _«ead _interrupt_ 

LDx'^IDCLc; IDA 2#2; SKA M.76B; bRU ~IDDw~~ 
* w&RD C6U^T IS 4Q6. CHECK CHECKSUM* 
bk M IDLoU 



LDX IDCL2; LDo 0#2; Sk» «74B6; BRU *+2; BRU IDDRl 

LDA x»Zi MRU «34000ti; C9PY Ax,bAj BRM CKSUM 

LDB »74B6; SKM* IDCL2; BRU **2; QRU IDDRl 

MIN \)Vi LDA* IDCL2; £RM JDER; qRM IDFAIL 

IDDRl LDA IDLBL1; MLABEL 
IDDw EQw * 



%_# 



. , .- ^^JP 



IDA «*4B5; ADM* IDFILE I PAGE 15 

bRU IDFRET 



DRT1 ECU * DISC WASNT READY WHEN IT SHOULD HAVE BEEN 
MJN DXX; ExU DRT; oRU *+2 (STILL NaT READY); 

feRU_&EI._ 1A ._F.Ert__MICRftSE.C5blD.S...LATE4-J1A¥ L8SE A REY9LUT I ON ) i 

BRM rtSAVE 

DRT2 LDX =-1000/7 SET UP FOR 1 MILISECOND L68P 

ExU_DRT; BRX #-1 7 MICROSECONDS PER ITERATION 

BRX DEt b'«ANCH IF DISC bECAME READY IN LESS THAN A MILI3EC8ND 

IDA DmUi SKA FOuR; Sub Six; CAx; MIN D26#2 (RECQRD SERIOUS FAILURE 

pRU DRTg 



107 ELw * ERRORS 

Sk" IDCL1; BRg_ * + 2; BRU 103 _ _. 

&RM WSAVE; LDA* IDCL1; BRM IDER RECORD DISC ADDRESS 

EXU DET; MIN DS; EXU OCT; MIn DC 

SKR DRMT RY; BRU ID7Aj MJN DUj qR.U 1DSW1 

ID7A MIN NDCL; IDA K Mi; XMA JDCLlj yRU 106 

IDFRET E uC *_ CHLCX FOP hARQWAKE ERRORS ANQ RETURN 

Skn DK^TkY; tiRu IDT RET 

&RM IDFAIl; LDA* IDCL2; oRM IDERj BRU IDTRET 



BRh ^'SAVC; lDA 8RM*1; STA jib; STA 33b 

Uv_A <M_i; STAjjMT; XMA IDMW RESET IDMW 

XMA ID^2; STA INT31 MOvE IDM2 Ta 1NT31 AND SAVE IDMW 

SKN I DM.?; i.>RU * + 2 (RETURN TO NON-DISC W BFR ACTIVITY); BRU WRET 

LDA *PAGE; MRQ »RWP*100i3i MLABEL 



LDA IDm.^a; LDb IOMad; LDX IDMWx; BRR IDM2 
ID^c-2 EXU JC'T; dKU * + 4; ExU SET; bRU * + 2; BRI IDM2 
^i^L w.Si'ii_..LiRM. „I_DMi.. ..P.RU._I DM2+.1 



EL5F DISC*:* 



$RG1A EQv 30b HEAD OF W IST CREATED BY PTC 

$RQ1 EQU 32b HEAD OF LIST THAT 620 IS PROCESSING. SET UP BY DTS 

$RQ2 EQU 34d CURRENT J OB BEIN G RR aCESSED BY 620 UNLESS RQ1 f RQ2 



*RQ3 EG^ 35B CURRENT JOB BEING P8ST PROCESSED BY 940 UNLESS RQ3*RQ2 
$3300A o t300 SEE TL3G# DRMSET AND DJMt 
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TDX 

IDS 
IDX 



IDMC1 






$I0M 



102 



y i 



ST A 
IDA 

X>A 
LUA 

BR I 



•UN ID MCI 

IDA; STb IDB; STX IDX 

REAL; SfA DREAU;* STORE REAL TIME I 

R.G3L;... &<;&.. R<*£i. b.BU 102 _ 



DREAL 



IDA; 



L D B I D B ; u D X IPX 



MI-M x A R M.a_T. 

LDX RQ3; LUA 2#2i RSH 
CQPY AB/AXi LDA K2t>5; 
U)_>l.._R5.3 ; ..LCA l/_2; RSH 



13; ETk <77; STA IDJ9B 

SKB KMi; AOM TTN8#a; SKN TTN6,2; MIN ACTR 

.1.11 ETR._eL3.7j__.CAXj..B.RM DLSCKD 
3; ETR Ki7j CAX; LDA IDT#2j ETR XX 

E X U I Q T x 



LDa RQ3; LDB 2#2; ISM 

STA iDTXi CiKM IDT, 2; 

CLA; LSH U ; ETR K77; ADD «GFLJ; STA IDFILE 

SKG =GFLB; 8RM M6NCR 

LDA* IDF1LE; RSH lb; ETR THREE; CAX; LDA BUF#2; STA IDBUFF 

EXD IpTx 



IDTRET LDX RQ3; S*N 1*2j BRU *+4; LDA Q*2; MIN DU; BRM IDER 

EAx R{*3} BRM 1NCRQ; BRg JD1 



$INCR'J 0;* INCREMENT DRQ POINTER AND WRAP AR6LNQD IF NECESSARY 
EDA_J3/2i ADD _ THREE; S.K.E.. *DRQy.i... fcRU .*±2i._LDA...?DRQj STA ...Q.*2; .BRR ..INCR..Q 



I DDR EQU * 

LDX RQ3; LDA 2/2; SKA «l76Bi BRU IDDW 



BR W iDUbu 

LDx RQ3; LDA 1^2; MR3 *340QQb; AXC 

LDB* RG3; SKB x7; BRM CKSUM (CHECKSUM BFR IF CKSM IS KN8WN) 



LD8 X7; SKM« R^3l BRU # + 2; BRU IQDR1 
MIN DF; LDA* Rq3i BRM IDERi BRM IDFAIL 
IPDR1 LDA iDLBLl i MLABE L 



~u 



© 






^i^ir 



o 



I DOw EQU * 

LDA s-4B5; ADM* IDHLE 
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IDFRET Emu * 

LDx RQ3; LDA Q,2; SkN 1/2; BRU IDTRET; BRM IDFAIL; BRU IDTRET 



ENDF 



IDT EG 
* FLAGS 



TTHT 



D I SC 



BIT 



INTERRUPT DISPATCH TABLE *nITH FLAGS 
P9R FILE OPERATION/BITS I AND Z UNUSED 
BRU IDTRET; BRU IDDK#4; BRU IDDWM; BRM M9NCR 
BRU ID124; BRM M0MCR; BRM M6.NCR; BRM M8NCR 
BR M iQb p R#.iti b.RU I0dPW# ^i t$RU... IDBRj4.j BRU IDBW/4 



ZRO I.^TR FRSM IDT MINUS FLAGS 



idbr 

IDB^ 
IpBPR 

idbpw 



EQU 

equ 

EQU * 



IDOR BIS READ INTERRUPT 

IDDw BIO wRlTE INTERRUPT 

BIG REAP INTERRUPT POR PAGE BOUNDARY 

EQU * oie WRITE INTERRUPT F6R PAGE BOUNDARY 

BRM IDLBL; LDx NR4; SkN 1/2; BRU IDDRl 
LRkIj P3T ;;Wlli LRf<2; P3T ^Rl£ 

bR- v aVlATS; BRM BK^Cj BRM DLDCKD; LDX BRMCl; BRM DL&CKD 

LDA RRL3; fcTR K.37 ; CA X ; BRM DLSCKD 

EliLL LRR1;.. .P_9T RRLl;.L.RR2; PGT. RRL2 

LRU IDDRl. 

IDFAIL Q;« PAlLwRB DURING FILE 1/9* SET FLAG Id CAUSE TRAP IN 191. 
LDA* IDFILF; MRG .^bfj STA* IDFILE; BRR IDFAIL 



IDLBL IRQ} * LArEt TS "BLOCK 

LDA ?0600B| MLABEL; STA IDLBLU LDx JDJ8B 

tD A * F-TP,?; £TR K37; AQM RRL3; LR«3j P©T PRL3I BRR IDLBL 

IDLbLl TR^ 

$CKSUM O; » CBMblNL AND FOLD DISC ADR AND W8RDS Q 9 \*2> AND 37B 8F BFR 

* A CONTAI,\S"dISC" AQR." x CONTAINS C8RE BFR APR* 

IF DJSC-3; LDA G#2; ELSE; ETR QMSK; E9R 0*3; ENDF 
E&R 1/2; E6R 2/2; E8 R 375/2 



STA CkS9j LSH g; STA CKS8; LSH 8; E9R CKS9; E6R CKS8 

STA CKS3; LSH *; E6R CKS9 

IF DISCO ; ETR *7<fb6; ELSE; ETR X7j ENDF 
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BRR CKSUH 
CKS9 0;* TEMP FUR F8LDING OPERATION 

CKS.8.__.. SL 



SDL9CKI zRQt* LOCK RAGE F8R DISC 

DIR 



O 



_01R 
LDA 
IDA 

LDA 

LDx 
LDA 



"=6u0l3; "ADD RLTS; bRm"dL&CKR 
RMC/2; SKG »77obi SKN XPs; BRU * + 3; MIN DSKMET; 



>^i »*.f r^ JMJ »'/ JD< Of\i>» Artj; D^W * + J # H J IN WOM It I ^ Hi 

<777; adm KMC/2; LDA RMT,2j BRM g; LDA KM^j STA DL 

.7-fvMEM; LDA -775B; SKG ERMC/2; MIN DL9CK; BRX *»2 
DLRli t-RM DLSCkR 



.., w - , MIN SDSKMT 

LDA KM/f; STA DLOCK . 



£I^A...BRR.._PL9CKI 



$DLBCKD ZR8;# 

DI.R 



DECREMENT PAGE LOCK FOR DISC 



LDA -06B2; BRM DLOCKR 

LDA RMC#2; SUd K777; STA RMC,2i SKG »776B; SKR DL^CK; N8P 

LDA RMT,i;i uRM PEL; 3RM QRAGfc; 

LDA DLR1; t-RM DL6CKR 

EIR; BRR DLOCKD 



DLSCKR 2K6;* SET RELABELLING FOR DLSCK ROUTINES 

XMA RRL3; LRR3; POT RRL3J STA QLR1; BRR DL6CKR 
DLR1 ZRI5 



ID124 



LDA 
LDX 
LDA 



EuL * INTERRUPT ROUTINE FQK oRS 122/ 123# 124/ 125 

IF DISCO; SKN DRMTRY; ELSE; LDx RQ3; SKN 1#2; ENDF; BRU IDTRET 

«6Q0S; BRM PL0CKR 

IDj f io; SET .«fu4,TT*8 SET BRS 122 # 123# 12*# 125 ERR8R BIT 

TTN9#2) ETR K77; CAX; LDA TTYASG/2 FIND FeRK D8JNQ 1*0 
LDA PPTR,;j; RSh l? 3 ; MRG PLNSK; SKE PLMSK; BRU #»5 

IDjeJb; ADD CDMS10; SKE PTEST # 2 

I D12» A NO/ OR YES BUT FORK IS 

SKR PL#2l N8P 

ADD 51S85; STA PTEST/2 SET PTEST 

SUB *20B5 (MAKE PUTST WDRD); XXA; 



CAX 

LDA 

dRU 



(IS FORK DISMISSED ON 10) 
ALREADY SET TO RUN AT PACTRp 



TO ACTIVATE AT PACTRP 
_RSH_ J 2 A PUP A CJS 80. TO Bil)j 



m 
m 






4T\ 












IDA 
LDA 



ID124A IDA. DLRli 
BRU IDTRET 



*-2BS; ADM 0#2 DECR» PTEST S8 F9RK W8NT RUN BEF8R& PU 

0/2 CHANNEL NUMBER IN x REQUIRED BY PU; XXA 

EPu 

""tTRH~l)L8C<R 
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*BRS167 ECU * REAP AND RESET BRS122/ 153/ 124/ 125 ERRSR FLAG 

LDX J8B; LPA «4B4; SKA TTN8/2; BRU * + 2; BRU P©PX 
CNA; ADM TTN0/2; b«U PQPxO 



* RQUTINE T9 SAVE DISC ADDRESS &F ERR6R 
&IDER Q;* PUT DIS C ADR 0F_ FAILURE.. . INT.B. TABLE 



ETR <S?; STA* IDERi; MIN IDEKl; SKN# IDER1; BRR IDER 

LDA EIDER; ADm IOERlj dRK IDER 
IDERI IRQ *+i 



$IDER2 BSS to 
EIDER DATA 
IDJ QB Q 



-1 



IDFILE v, 

IDBuFF ZKP TS BlQCk BUFFER ADDRESS 

SXARM8T Q ;» MINTED IN I DM. ...FOR EVERY DISC TRANSFER . COMPLETED 

$DL9CK DATA -<* ^ LESS THA* THE NUMbER »F PAGES LQCKED FDR DISC 

$DMSK DATA 3777777b DISC ADRS MASK 

$NDMSK DA TA J ^6 

$DSCT3P DATA 8*12^000-1 MA X jMUM 8 PAC 2314 ADDRESS ALLOWED BY DTC 

*t3j&B ZR C 



*SWPCNT dSS NjcJb;* NgMBER OF PAGES SWAPPED IN FDR THIS J6B. 
$CCT BSS Nj3b;# NUME-ER UF CHARACTERS F8R THIS jPB* 
$PTCKS j^SS NJS6;* PACE*TICKS/ CORE CHARGE* 



*PUCT bSS NPUO* 
*EPuCT3 E:vu PUCT+nPUQ*4+4 
&EPUCT ECU P_uCT + \'PUa<4 
$LPULM3 TS'U " "P U CT "+' : i P U ii * 4 - V 

FaRGET 
E^DI EQu * 

End 



D 
§ 
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I PENT 
UISTM 



6/31/72 14155 



PAGE 



PSP 

PSPN 

$ECA 



;ECB 



PSPj 
PSPJ 



MACKS' D CREATES ASC CELLS AND DATA CELLS F8R SYSTEM COUNTERS 

NaRG D 

EuU » DEFINES THE flEQINNlNci. 3F THE ASC AREA 



PSPu EQu 

RpT PSP.>i 
PSPJ equ pspj+i 



ASC ' .6D(PoP w i),a' 

E N D R 

EQU » (5EF.iN.ES THE 6EyiNMN.GL.e.F THE ..PSP COUNTERS 



RPT PSPN 
EQU PSPJ+1 



*D(PSPJ) ZR5 

ENDR 
$ECC" DATA -PSPJ 



EvO^i FR U T PSP,PSPN#PSPJ 



ENTRY FoLlST/Fi3MAP#EFCiL#MACH 

ENTRY PRILEV#NSY3^SST / EXECS/EX#NEXEC#SYSS 

Entry v £ KS#statu^, 

EiNTRY Ng, hAxNU^U TIME/ RPAQEjDd ITS 

ENTRY S D [;: M 8 » R C / R W D /Rw R / S w> o 5 * R S 

_EnTRY_ At3E-iR/F0ERR#TNlCTR#TFICTR^ARMeT 

ENTRY TI IbAD#T9IoAD/ExTPu/NBll2 

entry swxma, i 3cn, fat i g 

entry pages/tiict_r,toictr 

"entry ' ^eris ~ 

ENTRY !.>KST V/ cjRST VA # RwFL# M4&K 

JNTRY PACPTR, jeb^UTTY/Tjeb^PMTjQB 

ENTRY STlME,REAL/SETT8#ETt6#NETTR. 

ENTRY PMTP#RL3iApRSMT 

ENTRY CPARW,AUNN#EAgNN#DMlN/AC$T#PACST 



H 








• 


# 


ENTRY XPL/EXEC1 
ENTRY MISC 




• 
• 


# CONSTANTS 

* 

SZER6 DATA q 

$SN£ DATA l 

$TWS DATA 2 

$THREE DATA 3 




3 


$F8UR DATA 4 
$FIVL DATA 5 
$S1X DATA 6 




* 


SSF.VEN DATA 7 
SEIGHT DATA g 
$MNE DATA 9 




• 


$TEN 
$K13 
SK14 


DATA 10 
DATA 13B 
DATA 146 




• 


*K17 


DATA 156 
DATA 15B 
DATA 17B 




• 


$K21 
$K22 


DATA 20b 
DATA 21B 
DATA 228 




• 


$'<23 
&K24 
$K25 


DATA c;'3B 
DATA 248 
DATA 25B 




• 


$K26 
$K27 

$K30 


DATA 26B 
DATA 27b 
DATA 30B 




• 


$K37 
$K4C 

$K77 


DATA 37B 
DATA 4QB 
DATA 77R 




• 


SK10C 

$K137 
$K177 


FDATA i0Cb 
' DATA 137b 
' DATA 177B 




• 


*K2CC 
$K377 

$K'fCC 


) DATA 20GB 
' DATA 3773 
1 DATA .4006 




• 








• 




O 
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Ol 



o 



o 



SK777 DATA 

SK1G00 DAT 
*K1000D DA 



7778 

A 1QC0B 
TA 1000 
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$K1777 DAT 

$Ka000 DAT 
$K3777 DAT 



$K4C00 DAT 

$K7777 DAT 

$K1B4 DA 



A 1777B 

A 20006 

Al_3ZZZ&. 



A 4C00B 

A 7777B 

TA U34 



$K2B4 
$K3S4 



DA 

DA 
DA 



TA 171776 

TA 884 

TA 3777 7b 



$KS5 



DA 

DA 
$K1B5 DATA 



TA 4B*r 
TA 77777b 

165 



$K1S5 DATA 
$K2B5 DATA 
$K3S5 DATA 



*K4B5 D A T 
$KS6 DATA 
$K1B6 DAT A 
$KlS6 DATA 
$K2£6 DATA 
$K3S6 DA TA 
$K<*£6 DATA 
% $KS7 DATA 
SK1B7 D ATA 

$K1S7 DAT/' 

^ $K?B7 DATA 

$K3S7 DATA 



177777b 

c?B5 
377777b 



<+6S 
777777(3 
l_Bfc 
1777777b 

^B6 

_J7.ZZ7.7 7B.... 

*fB6 

7777777b 
_J_fc_7 

17777777b 

267 

37777777b 



$K>4b7 Data 

£K3£7 DAT 
SK5b7 DATA 
$K6B7 DATA 
$K6S7 DATA 
$K7B7 DATA 
$K77B6 DAT 
$K77735 DA 
SKS^Bf DAT 



<*B7 

A 3b7 

5B7 

667 

6777/777B 

_ 767 

A 7786 
TA 777B5 
A 7777Qtt 



m 








$KS5B3 DATA 77777b3 




• 


$KS662 DATA 777777Q0B 
SKM1 DATA -1 
$KMg DATA -2 




• 


$XM3 DATA *3 
$KM4 DATA -4 






$KM5 DATA -5 




• 


$KM6 DATA -6 
$KM7 DATA -7 
$KM8 DATA -8 




9 


$KM9 DATA -g 




$KM10D DATA -io 




o 


$<M<fO DATA -4Q'-;- 




# 


$<M100 DATA -10Gb 






SKM2Q3 DATA -?00b 






$KM300 DATA -3QQ6 




• 


$KM4Q0 DATA -400^ 
$KM4B3 DATA -40uCh; 






$KM^B4 DAT a -UQUQjB 




• 


$KM4b5 DATA -4Q0000D 






$KM^b6 DATA -^OgOOOJb 






$KM10 ELiU KMg 




• 


•PLMSK EQu <S<*b4 
$PRMSK EG^ K7777 






sADMSK E U J <3Sf 




• 


$NADMSK EioiU KM4D4 
SPGMSk Equ <37 77 






SNPQMSK EQU K*4fc>3 




• 


*X0 EQU ZER3 
$X1 EQw <lb7 






$X2 EQj <8p7 




• 


$X3 EQU <3ci7 
*X<t EQw <4£7 






*XB Euu <5'37 




• 


$X6 Euu <6tf7 

$X7 EQU <737 






$XX EGO <3S7 




• 


* SYSTEM TABLES A.\D W0RDS 




• 
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o 















PACPTR ZRe 

J9B IRQ 

UTTY iHb 

XPB ZRB 

EXECl ZHB 



PAGE 



EX 

NExEC 
EXECS 

NSYS 
SYSS 

PR I LEV 
STATUS 

TJOci_ 

8t> 



PB POINTER 

NEGATIVE FOR SUBSYSTEM STATUS 

EXEC STATUS TRAP 

exec status trap with relabeling 

NEG. F^R EXEC STATyS 

SYSTEM STATUS TRAP 

SYSTEM STATUS TRAP *ITH RELABELING* 

NEG. FOR SYSTEM STATUS 

0;* K7 FOR NO STATUS/ 7?B7 FOR SUBSYS, 3B7 FQR SYS/ 3786 Ext 
STATUS CONTROL ^K'O* 

ELAPbELi TIME P6INTER 
PQ INTER T8 CURRENT PMT 



ESS 
ZRfr 

ZRe 

bSS"' 

ZRe 

ZR? 
DaT/> 

ZRe 

PMTJB6"ZR"P G 

ADRSMT ZRe Q ADDRESS ©F 
IF FXPMT 



SMT 



$ADRPMT iRd 

SAEXSMT ZRt; 

ENDF 

M48* DATA 
MAxNU. DATA 
SDBM8 DATA 



P K 'J 
E X S M T 



N Jt'B* 1 

SINGLE E 
^OOOOOu 



•1 FtiR <f8K» FQR 64K» 

MAXIMUM NUMBER BF USERSt SEE TYllt 



1 IF yJT MAP N9T SET/O 8THERWJSE 

$MAPBIT q;* A SINGLE t,IT wHICH TELL DISC Z6-NE ^REDUNDANT T8 MAPNUM* 
D^C DATA 400G00l> C8NSTANT F0R LOCATING EXEC 8N QJSC 

«SW16_C;* SET Tr) -j t Y DKMSET J_F_ BPT? SET FtfR 16 DISC SYSTEM 
RWD DATA -i MINNED BY SET IF DISC WRITE PROTECTED 

RWR DATA -1 MINNED dY SET IF RAD WRITE PROTECTED 

SW20b DATA -i MINNED bl_ SET IF 305 INTRPT IS NaT HIGH 



SWxMA DATA -1 
MACH ZHV Q;* 
DISCN ZRB ; * 

"asc 



VERS 
*FG9fOA DATA 

$FG94Qb DATA 



MACHINE NUMBER 
DISC NIjMBEk 

•23 t 



*K)516337b 

1 ^0626 20 



*NT19 EQU *-ADRSMT 

# J9B INDEXED TABLES 

PMTP BSS NjOB POINTER TO FIRST PMT ENTRY 



EXEC VERSION JS CALLED SYSTEM 

9<to up Flags 

9.^0. .up flags. 

size: 6F table is FeR brs 7 



$EPMTP EGU" PMTP + NJQB 

RL3 BS5 NjaB MDNIT6R MAP. SH8ULD CONTAIN 9NLY TS BL9CK MAP 
SER13 E>SS Q 
"WFRT5 EQU * USER ASSIGNED T6 TTY 

RPT NPQRTj DATA -1; ENDR 
$EwERIS EQU * 



PAGE 



# J9B -~TEU £ f Y PT~ INDEX 

* BITS o-7«DISC BUSY bITS# IBS IS PuTlM BUSY BIT, 4B4 FQR ID124 ERRORS 

PIT 15-17 (70Ot>) FOR RAD ERR COUNT 



STTN6 0; RPT NJ3t^2; DATA ♦ + 1-TTN0J ENDR 
$ETTN6 DATA 2-MJOd 
$FULST DATA i 






* EXEC PARA METERS 

bSS NjtfB 



CPARW 



AUNN bSS 
EAUNN EQU 
ACST bSS 



* 

t>4 



USER'S CQNTR^u PARAMETERS* 

BITS: 0?SUBSYSTEM# 1»DEVICE# ?»8PERAT8R# 3»SYSTEM 
4«ACCT SUPERVISOR, §«EXEC 

ACCT/USER Nf?S. 



$EACST EQU 

* exec switches* set by bks i36» D8 not reorder.: 

$SWEX faSS 



$5WLET DATA 


,'; 


&PACST ^RC 


ACST 


ZRO 


w 



LETTER RPUTINE SWITCH 



$ACA 

D9wN 



ZRe 

DATA 
BSS 1 



fill cell f9r ta) 

accounting area 

no Lunger referenced by m6nit8R 8r exec 



FATIG DATA -i;* MINNEO IF REAL IS T83 LARGE 



$SWMBL DATA *i 

$SwhbM DATA ~± 

$ENMSK DATA *l 
$SWFD DATA 
* END 6F TABLE 



•AIL 83X LIST BUSY 
MAIL ECJX MESSAGES BUSY 
SUBSYSTEM ENABLE MASK. 
FILE CIR, BUSY F8R USER SPECIFIED. 






$LDFACT DATA Nj8b 
$ACT1ME DATA Q 







LOAD FACT8R 

LA ST TI ME ACCOUN TING WAS WRITTEN. 



p 



^L^W 






$N9ACT DATA ACCOUNTING SWITCH. *1 FOR ACCOUNTJNGt 

$USN8 DATA USER N8. LOCKED OUT BY EXEC 

$GBUSY BSS Nj&B ASSOCIATED WITH FGLlST IN THE ExEC 

FGLIST BSS Nje"B FILE GROUP LIST 

EFGL BSS 

S8V EQU 4000d .CHANGE ...WHEN OVERFLOW .Fp__AREA_.MOVlSf._ _ . . 



PAGE 



FBMAP bSS 600"Oa/?4wSev/244.'l 



# SYSTEM PARAMETERS 

* RC « ERR8RS DETECTED 



ciY SKS 51000 PLUS ERRORS DETECTED BY S«S 51086 

RS , ERRORS DETECTED D Y SKS 51000 
RAsRAD ADDRESSING/ RU«RAD UNCORRECTABLE 

RATsRAp ANGLES DC»D lSC CHANNEL/ DS-DISC SEEK* DFaDISC FAIL 
PU*DISC UNCORRECTABLE* CPUCPg PARITY 
QXX IS MINNED WHENEVER A DP DISC WAS 
P26 *D 27*Pg£jD2 3 ARE MINNiEQ FOR EVERY 
NaT READINESS. SEE DRTl CODE. 
BZ = NUMBER OF TTy BUFFERS ZAPPED BY TG6 CODE 



NOT READY ON ENTERRING IDM 
...MI LI SECOND OF CONTINUOUS 



MISC 
PWFL 



.f.SP.. 

bSS 

£R6_ 

$MAPKUM 0; # 

DBITS DATA 

R S ?k? 
TNJCTR ZRe ■■ 

TFICTR ZR? 
SPARE1 o 
SPARES 



TIICTR 
TIIBAD 

TOICTR 

T8IBAD 
NU 




ZR& 

ZRe 

ZRS 
ZR& 



UTIME 

REAL 
SETTB 



ZR8 

ZR9 
£R8 



IN NET 
RCfRA#RUARAT # DC*QS#DFiPU.#.Dxx J ?Q26#027#D22/D23#CPC#BZ 



y 

INTEGER «HICH 

TAfcLEC-1 



m* OF .POwER FAILURES* 

TELLS WHICH ZONE 8F DISC IS MAPPED 

N8* etF FREE BITS IN BIT MAP 

RAD CHANNEL- ERRORS* 

TTY UN INTERRUPTS 

TTY tjFF INTERRUPTS 



TTY INPUT INTERRUPTS 

BAD CHANNEL 6N_INPUT INTERRUPT 

TTY OUTPUT INTERRUPTS 

BAD CHANNEL ON OUTPUT INTERRUPT 

N6» 8F USERS ON 

NOt ©F USER QH SECONDS 

NOt OF CLOCK TICKS 



UNSOLD TIME 



IwETTB ZRS ~~"" Q CPU NOT USED TO SPEED UP DISK JO S PAGE 8 

ST I HE ZR6 TIME I* SYSTEM MODE. 

*?PT iRJB 0- - __.. ... R^GE .TICKS FOR ALL USERS .. .. 

PAGE£ ZRF G NO. OF PAGES SWAPPED 

$SSWC ZR3 o SWAP COUNT F8R ALL USERS 

RPAGE £R0 NO« OF READS 



SPAGE'rt im NO. OF WRITES 

£ $SDSKMT zRO PISK ACCESS UNITS FOR ALL USERS 

AgMgT IRQ Q _ _fil£C km MOTION 

XBERR zrb c N9t OF X- BLOCK ERRORS WHILE SETTING MAP 

9FDERR ZRO q NO, OF FILE DIR. ERRORS WHILE SETTING DISC BIT MAP 
EXTPU ZR8 _u EXTRA _PU ENTRJJS AT BRS 112 

S. N6112 ZR9 NUMBER OF LOGOUTS 

3§ SR8ER ZR£ RUSOyT ERR8R ON PU. 

jg $UPSHUT UP/S HUT FLAG. 2 FOR UP# 1 FOR SHUT* 

$LCPFIB zRO Oi* LOST CHARACTERS DUE TO FULL INPUT BUFFER* 
d BSS 6 

»EQPT EQU "» BITS IN THIS CELL TELL THE STATE OF MONITOR IF SWITCHES 
IF FPH>OUM EGU lj ELSEiDUM EqU Qi F-NDF 

# IF PH2; DUM EQU DUM+2; ENQF 

IF DI SC»3;0UM EQU DUM+*; ELSF 0ISCs2*DUM EQU DUM+8* ENQF 

IF RP;DUM EQU DUM+aoa; ENDF 
DATA DUM; FR3T DUM 

$NMISC EQU »»MISC SIZE 0F MISC TABLE FOR RWTAB MACRO 

* MISC TAbLE ENDS HERE. LENGTH OF TABLE IS 45B» MAINTAIN THIS 

# COMMENT A.ND A CELL IN R*TAB FOR BRS 7 l ^HEN CHANGING MISC TABLE. 

» THE LENGTH OF THE MISC TABLE CAN BE FOUND &Y SAYINGJ 

« NMISC* IN UDT" AFTER LOADING S. THE SIZE OF TABLE 19 CAN 

# # BE FOUND BY SAYING! NT19f 



* 3RS MODULE TRANSFER VECTOR 

BRSTV DA TA Qj 16B/13B6#13UB4/1314l5B2il7l 

BRSTVA DATA 40010005B 












t% 



# « TIMING TABLES 

DMIN D ATA *3 SYS* START-UP PATE/TIME IN MlNSt 

* 1ST 6 BITS F8R M8NTHt REST F8R MINUTES 8F M8NTH1 

9 $YEAR DATA 1QB YEAR NUMBER 

$LQM0N ^R6 o LAST TIME M0NIT8R DATA ENTERED IN ACC9UNTJNG' 

$CZ0NE ZR3 CURRENT TIME Z8NE F8R EXECt 

# ETTB BS5 NJ8B COMPUTE TIME COUNTER 
$STACT Q;» START ACCENTING CURS8R P8SITI8N 
$CRACf Q;# CURRENT "ACCOUNTING CuRo8R P8SITI8N 

A $DSTSW 0^* SWITCH FQR GMT TIME C8NVERSI8N 

S $ ! HK * Om CONSTANT FQH L9CAL TIME CONVERSION (BRS 42) 

O $TMK2 OT* C8NSTANT FUR L^CAL T I ME CONVERSION 

iZ ENDSYM BSS Q 



PAGE 



FORGET 
END 
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o 

^v 
o 

• 






CI 



M 



o o o 

T™ fDENT ~ 6/21/72 14J55 PAGE 

LISJM 



MDBG DE F INITIONS THAT ARE USEFUL TO HAVE ...I.N. .THE SYMBOL TABLE 



DEFINE. AUARM^TbI#Ta8#TP/TC#TRATE#TFl#TF3#TF4#Tl28*NPeRT#MTBl#NTBe 



CHARACTER PROPERTIES «###**#*****#***#*******#*#****#**# 



* CHARACTER PROPERTIES ARE LQOkEP UP IN AN ARRAY OF 12 BIT 

* CHARACTER DESCRIPTOR BYTES* ON INPUT THE INDEX IS EXTERNAL ASCI/ 
» ON OUTPU T I T IS INTERNAL ASCI* HENCE THE INPUT AND OUTPUT 

~i~ PROPER! IW OF A "SINQLT CHR Are "IN 2 "DIFFERENT DESCRIPTOR BYTES. " 

* A CHR DESCRIPTOR TELLS WHICH BREAK TABLES THE CHR BREAKS ON IN 
_* THE F I RST 3 BITS. T HE NEXT BIT SAYS WHETHER CHR \S ECHOABLEt 

« THERE 13 AN UNUSED BIT FOLLOWED BY A 4 BIT INPUT TYPE AND A 3 BIT 

* OUTPUT TYPE. 



* CHARACTERS ARL DIVIDED INTO CLASSED FOR INPUT AND OUTPUT PROCESSING 
*_ 7_LEVEL.._C)UTPU_T CHARACTER TYPES ( INTERNAL ASCI ) 



# MOST TYPE 1 NORMAL PROCESSING 
• * 10? TYPE 2 T01Q2 PROCESSING 

* 105 TYPE 3 



* 135 TYPE 4 

• * 152 TYPE 5 

» 155 TYPE 6 

9 * 7 LEVEL INPUT DIVISIONS ACCORDING TG EXTERNAL ASCI CODE 
» _ TYPE 12 .......... PISCARP ..__.. 



* 1-10 TYPE 1 NORMAL 

• * 11 TYPE 7 PROCESS TAB CHR 
_J* 12 2 TI12 PROCESSING 

* 13-14 1 NORMAL PROCESSING 

• * 15 3 TI15 PROCESSING 
_* 16*32 1 NORMAL PRO CESSING 






33*35 
36 

m. 



40*137 
140-173 

111 



4 
1 
S 
1 

10 
.11 



SOFT ESCAPE 
C8NTRaL SHIFT Nt USED TO MAP TO 04 SOMETIMES* 
HARP ESCAPE 
NORMAL PROCESSING 
LOWER CASE 

SOFT ESCAPE OR LOWER CASE 

DISCARD 



END OF . CHAR A _CT£ B _P.i\0 PE R.T.I E § *##***#*#####*#***#*#*#*#*#*#*###* 



$THIRD PATA 12525270B MULTIPLY A BY THIS AND A IS DIVIDED BY 3 AND 

BO. A ND ai_ceNT.A.IN_REMAl.NDEW»...lf: A_.STAJR.TS. OUT. SIGNIFICANTLY MORE 



THAN A LEGITIMATE CHR ADRS <0 TO H0000B> THEN THE QUOTIENT AND 

THE 2 BIT KEMAINDER BECOME ERRONEOUS. B0#B1 BECOME 3 

AMUL...1 F_OyRTH_OF THE I1ME.. WHENA.__CMR.ADRS IS CLOBBERED* THIS 



* CAUSES CRASHES ON EXU TGC5#2 INSTRUCTlONSt 
$TTYASG EQU #; RPT._NPORT; 377.7.73; ...ENDR. 



SACDATA b SS NjO D ACTIVATION DATA. SEE BRSl4#BRS81# BRS164* 

$TT bSS NPORT 

TF2 NOT IN PAGE 12 SO SCMEDULAR CAN CHECK 01H FLAG 

VALUE OF FREE ENTRY JN TBI ©R TBO 

COMPLEMENT OF TFREE 



$TF2 BSS NPORT 
$TFREE DATA 2*2B5 
$TFREEC DA TA -2*2b5-i 
$TPORT "o 

$TCIX STA SSQl; 3Tb SSQ2; STX 5S03 
LDA# b; 3TA# o 
BRM MPTYM 

LDX_ UTTY; MX TPORT 
BRM TUGC; BRU TUDMS; BRM TuE 
BRM* TQCINC 
LDX SS03i STA* Qi BRM NROPXB 



TCJCI8 6RM TUGC; BRU TUDMS; BRM TUEj 
TCI I BRM* T3CJNC; BRM NPOPx 



STA SS01 



$TCIT BRM MPTYM; LPX UTTY; STx TP0RT; BRM TUGC; BRU TUDMS 

XMA SSQl; SKE SSQli BRM NPOPx; MJN Q; BRM TUE; BRU TCI1 



TYM 



PAGE 



-Cx 



o 



m % 



TUCHR 
TUCHRF 

TUECH8 o 



TYM 
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TUGC 



TUGC1 

TUGC2 



TUGC3 



TUQC4 




IPX 



LDB 



_TP&_RT 
TF1#2; 



SKB "GOBY+UHY + XtfFFY; BRU TUGC3 



6RM TGC; BRR TUGC; STA TUCHR; LDB TFl,2j 
ETR K17 7; RCY u xxAj LDX T1??.8#2J XXA 
12; STA TJCHRF 



SKB »8IY; BRU TUN3 



STA 

XTR 



TUECM0 
K17 



TUCHR; EXU 



SKB X4 1 RCY 

LDB TUCHR; PIR; ARM TQD; EJRj 
J R DA_lUCH L R i _LDA TUCHRF;.. RCY .3i. 
ADD *23QQ00*B+*; STA »*2; LDA 
BRM M0NCR 

BRU TUN ; BRU TUNj bRU TUN; BRU JU.N 
BRU TUN; BRU TU36; bRU TUN; bRU TULC 
BRU TUN; BRU TUIGNR 

SKB «Gd 8Y; BRU TUGC4 (CHR_GSBBLER RECEIVED 8R BUFFER ZAPPED BY TWO; 
PIR; LPA TC#2; SKG K4Q; BRM TBACKP; EIR; BRU TUGC2 
LDA »-Q^BY; ADM TFl,2; LPB K1B4; BRM TIIR; BRU TUGCl 



TUDMS LD'x 'TP9RT; LDA XX; STA" TT/2 

LDB TFl#2; SKB *DIY; B«U **3j LDA *DIY; ADM TF1/2 

SKB aGRELNY; BRU #+2 (RESET GREEN BALL FLAG/ RETURN GREEN BALD; 

te$y *+5; LDA *»GREENY; APM TFl#2; LDA FIvE; BRM TR6M 

LDA aYELY; DIR; E8R TF2,2; SkA «YELY; BRU TUDMSli STA TF2,H 

^PX-X^giLL-L C Y_. 8 i__ MRQ *2QQ_37&B; STA TPAIR2; £8R K377; BRM TRSPAJR 

TUDMSTXIR; LDB K4000; BRM TIIR 

LDA TP8RT; ADD ■6Sb+TTj CAB; LDx «GTI; BRU NP5PDS 



TUN 
TUN1 

TUN2 



SUB <4Q 

ETR <177 

MIM TUGC; bR R TUG C. 



TUNS LCY TERMCZ; ZSR TF*>%; 
LDA « »l-8IYj DIR 



SKA *TERMCY; BRU TUN8A 



ETR TF1#2; STA TFl#2 

LDA ,-i-BRKYi ETR TF2/2; MRG BRS12B+3; STA TF2#2 
EIR 









TUN8A CU; sTA TUECH8; UDA TUCHRj BRU TUN£ 
TU36 IDA FdURi BRU TUN1 



TYM 
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TULC IDS TFX>B; SUB «4Q; SKB «UCIY; BRU TUNlj B«U TUN 



TUIGNR BRM# TGCINC; BRU TuGCl 
TUE 



TIIR 



IDB TFl#2; SKB «DEY; SKB *7lY; BRR TUE 
LD6 TUECH9; SKB KMl; SKN TF3,2; 0RR TUE 
SKN T F2,2; SKN.. _IR0SWj dRU.. TVDMS _ ... 



STA TUE9i CBA 

STA TUESi BRM TR0TY1; LDA TUE8i IRSH 8; SKE ZERBj &«U *•§ 

RST aMARY/TFl 



IDA TgE9; BRR TUE 
TUE9 
TUE8 G 



0;* GENERATE SOFTWARE INTERRUPT AT ?»10#211 &R 212 IF ARM£D* 

210 _ i3FR CLEARED BUT CIRCUIT STILL .VALID . UB4) 

2X1 DISMISS 'WILL tfCCUR ON CIS IN BR 9UT (4B3) 

212 BAD FILE NUMBER 6N ClBt COULD BE A ZAPPED CIRCUIT* (2B3) 

STX TI1R X 

MPPACT; LDa PACPTR; CBa; BRM RIIR 



BR 

BRM MRTYMj LDX TIIRXj BRR TIIR 
TIIRX C 



$TC8X EQU * 

STA SSQlj S T B SS02 j STX SS0 3 

LD3* GET CHARACTER "TO BE OUTPUT 

BRM MPTYM 

LDX UTTYi ST* TPGRT; CBA; BRU TCB1 



TC8CHR 

$CI8T1A CA X 
$CIQT1 QRK CPQRf" 

SKN CP0RT31 BRU TCICI9 (INPUT CIO); IDA SSQlj#BRU TCBl (OUTPUT); 






o 



o 









• 



TCdl 



ETR 
SKN 



TC9g 



BRM 

SKB 

£RM 



K377; STA TC8CHR 
TF2#2; SKN TRQSwj BRU 

JEJU.2J SKB _«&&.Y + 135Yj 

TQi BRM NP6PX 

■135Yj BRU TC83; * SKIP 



TC63 

# 



TR6T Y1; BRM NPQPx 
LDB TF<m2; SKB «135CYj 



TVDM3 
BRU TC82 

IF 8 LVL 8UPUT 



TYM 
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BRU TC03A (COUNTING IN PROGRESS) 



TC83A 



IDA 

IDA 
TC83B SKN 

LDA 

LDb 



COUNTER AT 0« SET COUNTER AND GUTPUT BLANKS 
LSH 135Cj£j ETR *135CY; APM TF4#2 
*135CY; SKA TF4/8; BRU "TC63B 
135Y; ADM TF1>2; BRM NP8PX 



irZ*2_h SKN TRQSWj BRU TVDM3 

*2<+0B; BRM TR0TY1 

<Ml; LSH 2*+135CZ; ACM TF4<i 



BRU TC83A 



TVDMS 



LDB 
UDA 

IPB ... 



K400G; BRM TIIR 
*TF2; ADD TP6RT; CABi 

lR8SM.i._L0A. ■QT.I j. BRU 



SKN TF2>2 
,NPfl.p_D.S-._ 



sTR6Sw DATA *1 
$TR8SI^1 1 TR8SW 



TQ 





ETR *l77j RCY I; XaAj LDx_U2_8#aj XXA; SKB X*J «CY 12 

LDB TF1/2; ETR SEVENj ADD ■23QQ0Q3B+*; STA #*u EXU * 

BRM M8NCR; BRU T8N; BRU T81Q2; BRU T8105 
&Ry T8133; BRU T0li»2; BRU T815J; BRM M3NCR 



T8N IDA <40 

ADD TCOCHR; MRO K2o0 



BRM TR8TY1 
T6N3 UOA sMARYj C8RY AB#Nj SKB T?Ui 
T9N2 ADM TF1#2; BRR T8 



T8102 SKB «LC6Y; BRU T8Nj LDA »212b; BRM TRQTYlj BRR T8 



T6105 SKb *LC8Yj BRU T8Nj SKB «MARy; BRR T8 
IDA *MARY; ADM TFl#2 

LDAc2i_58; B_RM_TR_e_TYlj..BRR T.e_ . 



T6135 SKB »531Y; BRU T9N 
LDA_*ia3Yl__SKA TF1 # 2; bRM M9NCR; ADM TFl*2 



TYM 
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IDA *135CY; ETR TF<f#2; CNA; ADM TF^2 

BRU T0N3 



T9152 IDA *2iab; BRM TH0TY1 

LDB TF1#2; SKB pMAHIYj BRR T© 
IDA ? gl5Bi BRM. TR8TY1; LPA K377; BRM. TR&TY1. 



T6152A LDB TF1/2; SKB -MARY+MARSY; BRR Id 
IDA. «MARY; bRU T8N2 



TBI 55 SKB ?MARY; BRo Tai55A 
IDA *?tSB; BRM TRQTY1 

T8 1 55A UPA ,^£12jai.._S.R.<1_ TMI.Yl i .B.RU I6152A_ 






2Q^ INTERR U P .!._.? RQ C£ S S IN .G ..*.# * .#.# * *_#**.#-#.#.# ####*##**#*#*##**#####*## 



TQC 
TQA 



TQB 

TQX Q 
TQRL 



TGRET UDA TRCTlMi SKQ REAL; BRU TRC 

IDA TqRL; MLABELi LDA TqA; LDB TGBj IPX TQX; BRJ Ty 
$TQP6RT q 

$TQTYPE~ 

$TQCHR o 
TQCHRF 



MIN TQ C; STA TqA; STa TQB; STXJTQX 

LDA RlTYM; MLAbEL; STA TQRL 



TQ1 



>RM TRI ; .XMATuTYPE _ (SAVE CHR # GET TYPE); 



ADD *23Q0003B*#; XMA TQTYPE; EXU# TQTYPE 

BRM M0NCR 

BRU TYl; BRU TQRET; BRM M0NCR; BRM MSNCR 



4> 






CI 



BRU fY57 - BR~M~"Ma'NCR; BRU" TY7; ' B«U TYlo' 
BRU TYUl BRU TY12 



TYM 
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0;* PUT ECHS CHR IN A WITH SIGN bIT 8R IF SH0ULDNT ECH8 

SKA <4QQ; SKN TF3#2; BRU TQOl 

STB TqPCHRj RCY 3 

LDB TF1/2; SKB -AUXYj BRU TQD1 

ETR <17; ADD *23Q00G3B+*J XMa TqDCMR; £xU* TQDCHR 

BRM M6NCR; BRR T*Dj £RU TQDJ2; fiRU. TQD15 



BRM M8NCR; BRM MONCRj BRM MQnCR; 8RU TQTAB 
BRR TQD; BRR TiyD; bRM MeNCR 

TQD* QLAi_B.RR_JiiD_ _.. 



TQDCHR 



TQ012 LDB TF3#2; IDA »212Bj SKB »ElFY; MRG «215B*4B2+377B*2B5; BRR TQD 

TQDI5 IDS TF3 *g; LDA «21.5Bj. SKB. ?ECRY;. .. MRG.._.p_£12B#AB2j . B.RR .TQD.. 

TQTAB LDB TF3#a; SKB *TAdY; bRR TCJDj £RU TQU1 



TY1 LDb TF1/2; SKB *C8NY; BRU TQ1; SKA »»1Q3j BRU TY1B 
ADD «23000033+*i STA »♦!; EXU # 

_M^_.TY„l£n.;-.BRU_.„..TYlEl; BRU TYiE2i.. BRU TYiE3 

BRv TY1E'+; BRU TY1E5; BH\^ TY1E6.; BRU TY1E7 

TY1EQ EQ^ » CHARACT ER PAIR, PU_T_ b!IH IN JJSER _£UFFER# 
CLA; BRM jvit FIRST THE ZERB 
CLA; STA TY1E0F (SET FLAG FuR T'*C T6 INDICATE CHAR PAIR) 

^LjTRIj_QAAi._.EOR. TwXi SKA ADhSKi £RM M0NCR. (WRONG PBRT)j 

LDA TQTYPE; SKE ONE; BRM M8NCR 

LDA TQCHR; LDb TFl,2j $Rl> TYlB 
STY1E0F DATA «. i (CHARACTER PAIR FLAG F8R T*C ROUTINE) 



TY1E1 BR^ TRI; SkG «3756; BRU TQi 

SKE <377; uRU TYlEiA 

~ LDB TFl/2; SKB »DIY; b RU # + 5j LDA .YELYj MRG TF2#2; STA TF2#2; BRU TQl 
C6PY XA/B; LCY 8; MRG *2003768l STA TPAIR2j E6R K377j QRM TR8PAIR 

BRU TQl 



• 



TY1E1A UDA 7-r-eRAYi ETR TF2,2j STA TF2/2J ETR K77; AxCj STA ACDATA,2 TYM PAGE s" 

BRU TQ1 



TY1EF~BRM" CtTB'r"SET~'iG8BY/fFXi BRU T.jl 

TV1E3 EQU » TYMNET REQUEST TO £Ap A CIRCUIT 

MIN TFICTRj BRM TBRK 

LDB TFU2; SKB *AuxY; BRU * + 3; BRM TZAPR; BRU TQI 
* ZAP AUXI LIARY CIRCIUT, NOTE SIMILARITY TS T£AP SUBROUTINE! 

LDA iCaNY; ADM TFl#2j LDA *JBYj ETR TF2#2; COPY N#6; APM TF2#2 

STB TC#2 
LP A JHRE.E; ..BRM T.R.6.M .. . SEND CIRCUIT ZAPPER T8 TYMNET 



BRU TQ1 

TY1E4 ££y__» CHAMCT.ER.S. .FeLUQMJiia.T.HI.SL BN£L.ARE ECHOED BY REMOTE 

RST .DEY/TF1J BRU TQ1 

TY1E5 EiiUjL. . GREEN b ALLS ARRIVE HERE _ 

SKN TROSW; BRU TmI IGNBRE GREEN BALLS IF RING NEAR FULL* 
# SkB «DIYj ,.>KU TY1EBA 

SET =GREENY.TFl; B*U TGI 



TY1E5A LDA TqCHR; bRM TRBM; B«U TQI 

TY1E6 LaA_. s -GREEr,Yx SKB._«GREE.NY;. AUM..TF1/2 RESET GREEN BALL FLAG 

SKN TRKSrt; BRU TQI D9N»T SE.mD RED BALL BACK IF RING NEAR FULL 
BRU TY1E5A RETURN RED BALL 



TY1E7 EQU * CHKS FBUUBi^lNG THIS UNE HAvENT BEEN ECH9ED BY REMOTE 
LDA *DEY; SK8 *DlYi vRti * + 4; LDA SEVENj BRM TWC; LDA .7IY+DEY 
MRG TFJ/2; STA TFl,2j HRH TQI 



TY1B SKB *8lY> cRg TY18 

ETR K177 ; LRSH 1; xXA; LUX ll26iB> XXA; SKB X4; RCY 12 

STA TQCHRF 
RCY 3; LPB TFl#2i ETR K17; Add «23000Q3B+*> STA # + U EXU * 
BRM MBNC R; BRU TY1N; fiRu TYXnj BRU TY1N 

BRU TS9FT; B«U THAROj bR\j TY36j BRU TY1N 
• BRU TYINi BRU TSSBFTj BRU TYtN 



© 



-— ^ — 






o 



TY18 EQu * 

BRM TWC; BRM TBRK; BRU TOl 



TYM 
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TY1N CBA; "ETR ""■DEY^O IYi SKE sPEY + OiY/ BRU TYiNl 

IDA TQCHRF; LDb TQCHR; BRM TqD; SKE ZER9; BRU *+3; BRU TYlNl 

SKN TF 2j£; $KN TRQSWj BKU TY1N2 ._ 

STA TYIN9* BRM TRQTYl; LPA TYlN9j LRSH 8; SKE ZER8; BRU *«B 
TY1N1 RST »MARY#TF1 
IDA TqCHR; BRM T*C . . .. . 

LDA TQCHRF; ETR TF2#2; SKA *BRKYj BRM TBRK 

BRU TQl 
TYlNg SET > 7IY#TFlj LDA SEVEN; BRM T*Cj. BRU TY1N1 
TY1N9 G 

T g S ?E T SK5 *LCIY; £Ru TY1N 
TS8FT SKB~«C8NYi BRU TQl 

8KB «AUXY; BRU TY1N 



DKD »AWAt; d«U IY1N 

LDB TF2j3j SKB «SQFTY+HAROY+ta61Yi BRU TQl 

IDA TQP6RT; SkE OEvCH; BRU * + 4i LDB KM1; SKN w&IU; STB DEVCH 

LDX TTYASQ/2; LDA P1M,2; LDX T^P6RT; SkA K8B6; BRU #*2j BRM CllB 

BRM TBRK; LDA *S8FTYj LPb s3e5 



TSQFT1 



LDX 

BRM TBRK; 

AQM TF'ircTt 

BRU TQl 



uDA bSQFTY; LDb «3c5 
C3PY XB#E; LDA TlCl; 



i*to 



RM FPU; MIN ACTR 



THARD SKB *C£NY; 3Rj T^l 

_bj<U TYl\ 
TF2# 2; 



$«B sAUXY; 



108 TF2#2; SKB «HARDY+£161Y + tsl68Y; BRU TQl 

SKb -B113Y; BRU * + 3; BRM Tj8bBLEj BRM TBRK; BRM CLIB 

LDA >HARC?Y; LDb___Mp5; BRU TSflFTl 



TY36 EQU # C&NTR8L ShIFT N 

LDA 8g <HQ; STA T^ChRi uRL..TY.1N1..__ ....._„..._ 

TY5 EQU * RECEIVE: RESPONSE FROM SUPERVISORY REQUEST HERE* 

LDB TF2j?2; SKB =58Y; BRU *+2; oKU TQl 

LCY o&Zi ETR *5AY; ADM TF^#2; LDA ="50Y; ADM TF2 # g; BRU TQl 



TY? 



SET ?6IHY#TFa; BRU TQl 



TY10 RST *8IMY,TF2; BRU TQ1 



TYM 
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TYU 



TYjg 



IDA MAXNg; SKG NU; BRU TQ1 

LDA WERIS/2; SkE KMIj BRU TQn MIN WERIS#2 

LDA^MYj ST A IF lit} LQA nT.ER.MJCY J. .STA_TF4#2 

ClA; STA TF2#2i STA TF3#2 

STA TC#2; STA TRAT£*2 

<1G5; CaPY XU>E; UDA TIClj BRM FPUj MIN ACTR 
TGP9RT; BRU TY1E7 (ENTER DEFERRED ECH9 M9DE); 






UDX 



jiy_ 



* lflP9RT._.I.§ NE^..P©RT« A_REGt AND.. TQCHR IS. COMMAND P8RTt 

C0PY AX*N; LDB TF2#2; SKb *58Yj SKG »*NP$RT; BRU TGI 

ID tf TQPSRTi L.SH 24+X35CZJ oUB «135CY; ADM TF*,2j BRU TQ1 



TRC E'QU * 

UDA *9Q; ADM TRCTIM 

LDX sswNPORT 
TRC1 CDA~TF2 + NP0Rf72; "e"TR k77""jOB~NUMbER""" 

SKG £ER6; pRU TRC2 NOT A VALID jaB 

ABC ; x* A TRAlE^NPeRT,2 ...GLE.AR._.KAT£ .COUNTER 

Xxy; ADM CCT#2; CBX ADD A BuNQLE T9 HIS CNR C9UNT CHARGE 

LDB TC+NP9RT#2; SKd KM4QQ; BRU TRC3 U9TS 8F CHARACTERS IN BFR 
LPS *RCY/3; SKG ...K1&J...LD6 "RCY/3J .CBA. .. INCREMENT RC 9R DECR RC 
ADD TF2+NP0RT/2; E3R TF2+NPeRT*2 DEPENDING 8N CURRENT 
SKA a-l-RCY; BRU TRC2 (SvERFLtiwED THE 2 BIT FIELD); 

CBA ; ADM Tf-2+NP0RT*2 
~T^C2 BRx'TRCi""" 

bRU TGI 
TRC3 STX TRC3x; CXA; ADD ■NPQRTi C.Ax... . 

LDB ■RCY; LDA s*RCY/3; SKB T>2j2j ADM TF2*2 

bRM TBRK; LDX TRC3X; b«U TRCg 
TRC3X C 



INPUT RATE 



TRCTIM o 



END 9F g..Q^f._ PROCESSING. *####♦♦####**##»*####*##♦♦♦##*#♦♦*#♦«♦*#### 



I8UTINES T H AT INTER FACE WITH SCHEPUL AR »»»»»»»» * * * #*„#_# # * *l#.# **»***. 



u 



o 






<*VMl»ll 

o 



$TIP tDX PUTTY; 
ExL *+!#?; 



STX UTTYj 

BRU TS0N; 



LPX TJPJX 
BRU TSQNj 



TYM 
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BRU TFJP; BRU TPUSi BRU TPUH 



$TIC1 

$TIPJX 



1 TIP 





XXA; X^A 

START UP EXEC 
BRM GFK; 



TS8N IDA FPLST; SkN FULST; SKQ Z£R0 j 

IDA FjjLSIi_LP)L-PL>TTYi,-AP.t3. JFZi'd 
TTNQ*2; STA FULST 
F9R THIS USER 
BRU TSe Ng; LBA ?NUM£M; 
LOX J8B; ADD TSQNC4; STA TSSNiTl 
SU3 sNCMEM+NUMEM; STA PMTjQBj ADD 

CLA; LD_X_ PUPACj bRM SETPAC 

IDA *NC*EM; LDx sjdoi STA RL3*2; BRU 
TS0N2 BRM M6NCR 

TSSN1C2 D ATA 0U2l3& + NCMEM#lfc$ 

TSSNC3 DATA" 1*1564 
TS3NC4 ZRS PMT,2 
TS9NT1 ZR3 



BRM M0NCR 
STA J6B 



MUL_.J0BJ.LSH 23; STX PUPAC 
«»2000Q000B+NCMEM; STA pMTP# 



NPUQ9 



TseNci iHd 



■TS&NI 



» SET UP NEW PAC SL^T 

SETPAC z^'S; STA ;<L2/£; STA RL1#2 

LD6 J6d; LBH 39; ADD *ExECU M J MRG X6; STA PTAB#2 
LDa T lPl x; LSH 44 

"ADD s"lS7+6l;2; STa" PJm,2~"~ 

LDA PuPAC; LDx PuTTY; STA TTyA3G#2 

LDX_»QTI; uRM ,,PUT; LDX_PUPAC 

LDA TSQNCii STA PU2; LDA TStiNC2; STA RL1#2; LDA TS6NC3; STA RL2#2 
STA PTEST,2; BRR SETPAC 



SETPC2 

TS8NI 



LDA SETPC2; 
13 PACD^ b 



MIN NU; UDa 
LDX PACPTK; 



»NCMEM; LQA« PMTj8d; MRQ X2; STA# PMTJ9B 
LDA XI; ADM PTAB/2; LDA X4; STA XPB 

LDA RRL3; ETR k77; STA RLTS 

LDA sNLQU; STA LG 

LDA J8B; MuL «TABLEN#3/64; STB DQK1 SEE GETBLKt 






IDA .7706; STA FSJzE USED IN BRSl To" SET FILE SUE QUANTUM. 
IDA SEVEN; STA NF8RK; IDA ^Mj, STA IMCPU 
LDX K M7; LDA T*6; STA PX/2; ADD 6NE; BRX »»2 



TYM 
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IDA 9NE; STA PPB 

IDA sMBUFx; STA FBwRD 

IDX PACPTRi IDA PJh,2; ETR K»$6, LRSH <>* 

UDA PIM,2; ETK =737777776; STA PJM,3; CBA ; BRU ExECI,4 

TFfP IPX U TTY ; UDA KM 3; SKE WERIS^gj 8*U TFIP2; MJN WERIS # 2 
LDX TTYASG/2; STX TFIP3; BRM HFKj STX PUPAC 
LDX PUPAC; BRM RFk; LDA ■qTIj bRM TFK 
B RM JPJTj LDx TFC6J. LDB TFIPl;. STB PL/ 8. 

6RU NPUQo 
TFIP2 MIN RBER; bRJ NPUGU 
TFIP1 2R-» 3FFlNTi ^ 
TFJP3 £R5 6 

TPUS EQkJ *_ .P\J SaFJ ESCAPE PROCESSING 

BR k ^ MPTYM; LDX UTTY 

LDA 8 S3FTY; SKA TF2#£; BRU * + 2; BRU NPUGBj CNA; ADM TF2/2 
BRM .MPPACT 

UDx""TTYASG#2; LDA *2B6; siRM IIR; BRU THli B^U NPUG8 

TPUH E&U. * Py HARP ESCAPE PR8CESSING 

bRM MPTYM; LDX UTTY 

LDA «HARl)Y; SKA TF2/2; BRU * + 2; BRU NPUG9; CNA; ADM TF2#2 

DRM CLlB j BRM MPPACT; LDx TTyA 3G*2; BR M HF'K 



TH1 STX PUPAC; ClB; $K*< XPB; BRU **2i STB UCIN 
BR* RFk"; LDA »,,TI; BRM TFK; BRM uPUT 
BRU NPUGU 



TYMNET BRS S 



##**#####*###########*####^#*######»###*^,###*.##* 



&BRS11 EQg" »" "CLETaR INPUT ~BF'* 

BRM GATT; ipRM CLIB; BRM NP8Px 



$BRS12 EaJ""« SET "ECHO TABLE 
BRM QATT 



LDA SSQlj SKA g^j-SlY- §0 Y - L C I Y • L .CO Y - XY *16QQ 777B 



© 



o 



BRM TRAP BIT ©THER THAN SIY#88Y#LCIY # LC8Y#TABY#ELFY, 0R ECRY 

LD8 *ECH9Y; ETR *8jY+777B;; SKE THREE; SKA «8IY; CLB; §TB T ECH8 BIT 

IDA SSOli LCY 4J ETR *__FY*E_RYj E8R g £LFY*ECRY 

FRGT; E6R TF3#2; ETR ''~#ECWY+ELFyVECRYj E8R TF3,2 

BRM TF3XMA 8UTPUT NEW TERMINAL CHARACTERISTICS IF ANY 

I DA TF4#8; ETR *TERMCY* CNA/_A_>M TF4#£ 



TYM 
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IDA SSOli IF TERMCZ; LCY _ TERMCzY ENDF; ETR "»TERMCYj ADM TF4/2 
IDA SSal; ETR .8lY+8BY*LCIY+LCeY*3 8NLY 3 IS IN EXPONENT FIELD 

cqpy ax#x3,a ,e clear Ecne table frqm a, cax etc* 



LDX BRSi2b#2; XXB 

DIR; E&R TFl,2i ETR »3JY+88Yj E8R TF_,2; STA TF1#2 

CM * EBR _IE£/ £i_£_TR ?B.R.KYj E.QR T£2#2.i STA TF2/2 

bRu 3S1.53A 

BRS12S DATA BRKY/7*^/bRKY/7#2#BRKY/7/ciRKY/7#4 



BREAK TABLE BITS 



$BRS13 EQU * SKIP IF INPUT BFR EMPTY 8R SKIP IF 8UTPUT BACKPRESSURE • 
BR^ 3ATT 
6RM TUGC; eRU NP9PXOJ BRM NP8PX 



■3RS14 EQU * DISMISS UNTIL TERMINAL 6UTPUT C8MPLETED 
LeT. oAT.r_ .*".. TYEu bR^ NP.PACT;._LDA..XX; BRU BRS81 



'BRS24 EQU * GET LCI AND LC» AND x-SN# X-8FF M8DES 

ETR _»-lr7.Z:/bJ SKA .«-i-436Bb-LClY-LC0Y-XYj bRM TRAP* ST.A T 

BRM GATTj lDA TFl#a; ETR eLCj Y+LC8Y+XY J CNA; ADD Tj ADM TFJ/2 

brm Npepx 



$BRS29 E_o « CLEAR QUTPgT BFR 

C XA; _SkE <M_j oRU * + 2; LpX B.nE 
BR M CP8RT; SKN CPQRT9; BRM TRAP 
SKN TR8S*; BRU TVDMS 
BRM TG8BBLE 



BR M \PDPx 



* BRS 32 .CLEAN_.liP.-2_.ANi; -3 FOR MUST CASESt 



* INPUT? X-CHANNEL DUMBER 

$CLM2 STX CLM2A; LDA KM_, SKQ *'ERl$#2j BRU P®P* 

LDX TTYA$G*2; LDA PT£__L__j_ STA_C_M2C 






LDd CLM26; ETR «77b5; SKE *7b5; STB PTEST/2; BRU PQPX 
CLM2A 2R8 

CLM2B bRv PACOMB 



TYM 
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CIM2C zrg 

$BRS4Q EQU # READ ECHO TABLE AND ECI# £LF# ECR# 81/ 89* X (SEE MD&G FLAGS) 

bRM uATT 

LDA TFi/a; ETR .SIY + 89Y + XY CURRENT SUBd,X M8DES; STA SSQl 

_____ LDA TF3#___j ETRsTAdY^ECRY+ELFY; EOR *ECRY+ELFY. IRSH 4.. ADM SSQl 

LDA «LCiY+LCOYi ETR TF1/2; ADM SS01 

SK S ^ TF1>£'; BRU 6406 (NtfT 8 Ls/L);* 8 LVL 

.i E DA_.?T.E^M£Yi...E;TR..TF4j.2;. IF _. TE.Rf±CZi LRS_H_ TERMCZ*... ENDF _ 

ADM SSQl; L--KM MP6PX 

LDA «b«KY; ETR TF2/2; SKN TF;^; CLA 

JJ>A__=_ECL-iJ?.rvZi [ML i.3.rJiR.K^_C.AA_i..CNA ..(0/l#2._.9R 3/BEL£IV£ IT 9R NBT). 



B'+QA 
B4Qb 



*BRS85 EQ__* GET 8 LEVEL ejTPJil M&DE _. 

3RM jATT; L'DA «3ftY; SkA TF1/2; BRM NP8Pxj 8R'U 8RS86A 



$BRSfe6 t 



iu * 



__CLf'AR , LE*LL tiUTPUT....JMti[JE. 



bKM~3Affy UJA'"«3i)Yj" C9PY A d /n7 SKB TF1,2 
BRS86A AD M TFl/2; bRM NPBPx 



$ERS87 ~E_o * CTiTvERT P~tf <^T " NUli Q ER~""l N x TG jOb" NUMBER IN A 
LDA TFH/2; ETR K77i BUM NPOPxB 



$BRS112 EiU * SUICIDE t3Ry*~ REMOVE o8ti ~FR8M SYSTEM TABLESr 
LDX jab; LDA x*; SnR NU; SkA TTN8j2j BRM M0NCR 
CUPY_xA/_i STb PMTF#£ 



XMA FULST; XMA TTNQ/2; ETR K77 

SKE DEVCH; b^U * + 3; LDd KMl; STb DEVCH 

CAX; LDA A DMSKj XMA_TTYA$G#2 

ADD *PPTtt} XMA FPLST; STA# FplST 



LDB <77; LDX PUBPTR 



CLEAR USER FROM P»U» 



bSUPA CxA; SkE *PU5PTR; oRU *+2; 8RU BS112B 

LDA 3*2; SKM UTTY; BRU *+4; LDA PUDEAQ; $TA U8; MIN EXTPU 
LDX 0#2; BRU B'611 2 A 



^■tair 



<a 



o 



BSU2B CQPY AiXj STA RELPG8 

EAXjL_PMTj^i.$TX REUPG3 (SAME AS IDA pMT J08#f TR AD.MSK#STA RELPQ3) 

LDX PACPTR^ IDA RL1.3; LDB RL2#2j CLX; BRM RELMEM 

LDA PMTJGB; ADD *NCM£M*U $TA qSHHD; ADD »NgMEMj STA &S112E 

BSH2C CAXj DIR; t;RM RES; BRM M6NCR* EJR 

SKR 3Sll«fE; LDA tfSU2Ej SKE bSfl2D; BRU 8$112C 
CLA; LDX jSBj SKE AUNN/2J MlN N8112; STA AyNN#2 

LDA KMU LD X UTTYi STA wERLSf 2 

BRM MPTYM; 6RM TZAP; BRM TZAPlj bRM MPPACT 
BRU PACGOA 

BSH2D Q 

BS112L 



TYM 
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SBRS113 E^U » INHIBIT SQFT AND HARD ESCAPES FQR USER 
LDX UTTY; SET *B113Y,TF2; BRu P6PX 

SBRSU4 EuiU » U Np_S_ _ & RS_ XX 3 



LDX jTTY; t.DA S -B113Y; LPB T^2#2; SKB *B113Yj ADM TF?,2 

SKB -S5FTY+HARDY; pKU BRS4=> (DISMISS L6NG ENOUGH F6R PU T6 RUN); 



LiKU 



'9PX 



$BR3129 ETvU * HANG PttRT IN A IF IT IS A C6MMAND P8RTi 

SKQ «NPe.K.T-_lJ..._SKA x/M .hRM TRAP, S.KG ZE-RflU- BRM NP9PX; CAX 



B139A 



IR; S<N NERIS*2; :}RM TZAPk; QRU BS153A 



SBR3132 E(,U # 



REA^.J^R.^J.^AL. ...CHARACTErlI.STI_C.S_..8.UT ©F T.F3 



bRM 3ATT; LDA TF3#£; BRM NPQPXo 
$CRSW &RM NPSPx tRS_ 13<m. I_GNia.RE_Xfi/LF.._S. WITCH: 



$BRS137 E*U 
_CbPY 

"STb " 
LDX 

MA. 

bRU 
CXA 
ADD 



B137A 



* LIST P5RT NUMBERS IN HIS MEMORYt X PQINTS T9 HEAD OF LIST 
_XA#b; ETK ADMSK; _ADD *4b7 + U STA TP9INTS T$ gNQ ENTRY 
0#6 PUT HIS COMMAND PtjRT AT HEAD &F LIST 
a-NPCRT; LDB -AUXY APPEND AUXILIARY PdRTS Jd LIST 
TfP + NPORTjg; E_TR K77i SKb TFl+NP6RT#2j SKE JtfB 
B137B N8T ONE 9F HIS AUXlLAIRY P6RTS 

USER PORT NUMBER * M6NJT9R PORT INDEX TIMES 2 PLUS 1QB* 
»NPefcT*<f ( MONITOR IN DEX+4 )i ST A* Tj A D M* T ; MlN T ._ 






D137B BRX 'il37A 

LDA T; SgB 3SQ3; ETR ADMSK 
6RM NP&PXB 



LENGTH 8F LIST 



TYM 
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iBR$138 ECU * INITIATE SgPERVISdRY REQUEST 

J a £X__kTTYi. SKN TfZtZi SKN TROShi. B*U TVDMSj SET «5&Y#TF2 



ADM TF4#2 



O 

* 



B13BA 



OJA~ *Bl3*A; xMA 0; STA SBRSRT; BRM MPTYM 

LDA »l35CY+bAYi ETR TF4,2; CNAj ADD »135CY; 

LDA S- 1-13SY ; DIR _ _ 

ETR TFl";a7"STA"TFii2 

C9PY xA^u; LSH Si MRG *5*2B5; jRM TR6 (SEND A TYPE 5); EIR 

LDA b3?BS+TF8j ADD uTTY; CABj LDX «QTI 

bRU NP&PDS 

STB SSG2; SIX SS03 

LDA Sb RS RT; S TA 

BRM MPTYM; LDX UTTY 

LDA TF4/c!; ETR »5AY; LRSH 5A7; STA SSQ1 ERROR NUMBER FR8M $UP 

LDA TF ktcli E TR «135CY;» A»135CY If .TYPE_JLa DJDNT PRECEDE TYPE 5 



LRSH 135CZ; C5PY Ax/AtfjNj SKG 
LDA TF2#?; SKA K77; BRM i\P0Px 
LS H 25; ADD EIGHT; STA 3SQ3 
STti TF3#2; LDA s^lY + AiJXY; STa 

LDA »TERMCY; STA TF4,2 
BRM NPOPx 



»-NP9RT; 3RM NP8PX (N6 TYPE 12); 
(SUP ALLOCATED A BUSY P0RT ) ; 

oSERS X REQ IS NEW CIRCUIT NUMBER 
TF1/2; LDA JOB; STA TF2,2 



$3RS139 EGU # 

bRM 3ATT;_LDB TFl/ri SKb *AUxY; QRU * + 2; BRM TRAP 

BRM TZAP; ;;RM NP9P A 



$BRS152 ECU * 



M.TURN_.TTY lNPLT._^_gFF£R._._CHA_RACT£^_..CeUNT 1.N A. 



bRM 3ATT; uDA TO 2; BRM NP^PxB 

SBRS153 EG . U » SET CELL 211 WHICH PQlhlS T6 SUP PAGE Q 

LDA RRL1; LRSH 1*; ETR K37; AXC 

SKN SVST; BRM TRAP; SkE 211B; bRM TRAP; STx HUB 
LDA RMT/3; DI Rj BRM B 



BS153A EIR; B*M NPOPx 

SBRS154 EUU » RESET CELL 211 



C 









o 



CLA; SKE 211&; SKN SVST; 8RM TRAP 
XMA 211B; CAX; LDA RMT*2 

DIRjL BRM rex; bRM DRAGS 

BRU 3S153A 

'BRS155 EGU # (IF x IS INPUT PQRT THEN SKIP IF N8 CHRS RECEIVED/ IF 

BRM GATT X 13 8UTPUT P6RT THEN SKIP IF TC© W8ULD CAUSE A DISMISS) 

SK.N CP0RT9; E3RU *+bi SKN TF2*2i SKN TR0SW; BRU NPQPXO; BRM NPSPx 
CLA; SKE TC/8; BRM NP6PX; bRu NP0PXO 



sBRSlo6 E«X * ZAP ALL AUXILIARY CIRCUITS F6R THIS Jd&« 
BRM TZAP1; BRM NPtfPX 



S&RS159 EQU # SET UP/SHUT STATEt 

ST A UPSHUT; min uPbHUT (UPSHUT 9 1 F$R SHUT/ 2 FSR UP) 

MRG «6*2ii5; D'l'K; tjRM TRQ (SEND TYPE 6 T0 BASE); BRU BS153A 



TYM 
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SBRS160 E'JU # c5RS 160. CHANGE TERMINAL CHARACTERISTICS. 

oRM ,jATT; LDA bSOli 3RM TF3XMA; tfRM NpQPx 



SBRS161 B*M GATT; SET ■dl61Y#TF2; &KM NP^PX COMPLETELY IGN8RE ESCAPES 
$BRS162 BRM GATT; RST «i3161Y#TF2; BRM NP6PX UND6 BRS 161 



$BRS163 l^a k v *^-J; LDA j,£; 3TA C*6; a Rx *•?; BRM NP6Px NET TQ USER 

$BRS164 L,,L * ACTIVATE H I M *H£K yElLB*. BALL ARRIVES $R TIME RUNS BUT 
bRM 3ATT, ,:RM TYELi bRM MPRACT; LDA SSOli f.,RU fcRS81 

SBRS166 Ecu * mA^G P&KT j 



COPY A#X; dRU bl29A 

$B3S168 tSRM GATT; SET *6ie>aY/TF2; t>KM NP8PX DISARM HARD ESCAPES 
S3RS169 tpM GATT; RST »olo8Y/TF2; BRM NP8PX 

SBRS172 E CU * SEND. OUT CONTROL INFORMATION TQ REM8TE# SEND A16*A23« 
bRM GATT; lDA TF2/2; SKA .DlALY; BRU **2; BRM TRAP 
SKN TF2/2; SKN TROSwj BRU TVDM£ - 

LDA SSQ1; RCY 3; CXA;_ .... lCY .„3A_.„MRo K285_ (A TYPE... 1 CHARACTER.). 



DIR TYM PAGE 

STA TPAJR2, ETR KM4QQ; MRS 6i s E (TYRE U CHARACTER J)i BRM TR&PAIR 

fcRU BS1S3A ... . 



$BRS177 EQU • (ALU9w REMOTE DlALQuT 8N THIS P8RT) 
bRM_3ATT; LDA sDlALY; MRG TFp#a# STA TF2#2j BRM NP0PX 



*3RS178 ECU # (TURN 8FF STATUS F8R REM6TF. PJAL8UT) 
eR^_JATT^.UDA_JF2#c^..ETR...«EP.IAUYj STA TF2#2.j BRM NP8P/ 



* END OF TYMNET t'RS S ****##****#«###*####****»*«**«**«*««### 

* L u ■»■< L £ v E L k 6" T 1 N E b *#*#*###*##*****##*##♦#*#*♦*##*##♦#♦##*♦**#*# 

T b R K 

~ IDA TfeTc; ETr"«RCY;""lRSh"rC; 
XXA; LDX TDEUAY/2; XXA 

UD5 TFi<r; SKE £ER3; £RU »+3i SKo ■ D I Y i MIN ACTR; ADD REAL 

3TA TT#2" "" '" "" " """ " 

EDA =~D!Y; 8Kb «DjYj ADM TF1*2 
CbA; ETR_ =ulY+DEY; S<E *DIY*iJEY; £RR I.BRK 

LDA »7IY; AUM TFl#2; LDA SEVEN; bRM TwC; BRR T3R< 

TPELAY LATA 0,0*90*180 

GATT C;* VALIDATE PttRT NUMBER 1^ X« SET UP RRL3 AND TP0RT 
. CxAj S *: 3 K K 'li CLX *1 MtANS USERS COMMAND P8RT 

8RM CPURT; BRR GATT 

CP8RT Q 

CxA; FTR ACMSKi LRSh u STB CP3RT9 

LDX UTTYj SKG £ERQ; 8RU CP8RT2 

Sub FBuRi SK.Ci «NPaRT*li SKA ** t BRM TRAPj £AX 



CP8RT2 STx TRttRT 

LDA jtfo; LUB K77# SkM TF2*2j bRU #+3; bRM MPTYM; BRR CP8RT 

,._, BR^_.M_PpAC.Ti......LQx PACPTRi ...LDA K20Q0; BRM.RIIR; BRM TRAP 

CP8RT9 U;# NEGATIVE IF LAST RRRT AGRGUMENT WAS F8R SUTPUTt POSITIVE Fi 

TGebBLE Qj* SEND A C HAR ACTER GOBBLER 8UT TQ TYMNET 



iNPUTt 



© O" 



a 









m 



DIR 

LDA s -i-YELY; ETR TF2#2j STA TF2*2 ^ST YELL6W BALL FLAG 

LDA c -i «l35Y^MARY; ETR TFl#2j STA TFl#2 ST6P BLNKS#RST MARGN FLG 



LDA TW6; BRM TR0M SEND CHR GOBBLE AND EIR 



TZAPR 0;* TZAP REQUEST. SET UP Pi) TASK T8 ZAP A P8RTt 
LDA wERIS/2; SkG KM2j 3RR TZAPR 
LDB <M3; SKG Khl; LDB KM4; STB W£RISj2 



LDB <2B5; C9PY XB/E; LDA TICl; BRM FPU; MIN ACTRj BRR TZAPR 



TZAP1 Q;* 



ZAP ALL AUXILIARY CIRCUITS F8R THIS 



LD>; =NP3NT-l 
TZAP2 Ll)A TF?#2; ETR K77 

SKL JOB; B ? U * + 4; LDB TF1#2; SKB sAUXY; BRM TZAP 



CxA; EAx -1#2; SkA ADMSkj B^u TzAPP 

BRR TZAP1 



TZAP 



0;* ZAP A PORT' 

LDA sCO-^Y; ADM TFl/2; LDA «JBY; ETR TF2/2; C8PY N#B; ADM TF2#2 

STB TC#P 

LDA - " "THREE; t>RM~" TRtfK " SEND CIRCOUT CIRCUIT ZAPPER T8 TYMNET 
BRR TzAP 



C L I B U 

DIR; BRM TpACKP 

LDA s-i-MAkY-GOBY; ETR JFXjZi _3JA...T.Fl#2 



ABC; STA TC#2 

LDA SEVEN; SKB -7IYj BRM T*C (PUT BACK 7 IN INPUT BFR); 
.EJR; _£RR CL.1& 



T3ACKP u 

^f.X_XA'.ki._.LCY 8f..M^G__?2QQ..02l8Li_...L0b_.TFIj.2i SKB. • XBFF.Y.j BRM W 



LDA^-i-IlMY-xe;FFY; ETR TFl#2; xMA TF1#2 

SKA = 11 MY; BRu * + 2; &RR TBACk.P 

^0?_Y__><ArBi_...UCY 8; MR3 *1GB*2d5j BRM TR6; BRR TBACKP 



TYEL 0;* SEND YELL0* BALL T0 TYMNET. 

COPY xA#3j LC Y 8; MKG «2 QQ376Bl LDB TFjjg 



TYM 
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DIR; STA TPAIR2; SKb -AUXY; MlN TPAIR2; E9R K377* BRM TR0PAIR 
LQA 88RAY; MRq TF'2^2; STA TF?,2 
EIR; B«R TYF.L 



TYM 
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o 

D 



TF3XMA 0;* SET NE* TERMINAL CHARACTERISTICS IN TF3 3R DISMISS 

§&N TF2/£; SKN TKBSWj BRU TVDMS 

STA T ,\Ew VALUE FOR TF3 

LDB FIVE; &T[i T2 C8UNTER FaR TERM, CHR, FIELDS (0*5) 
CMi_ XMA JF_3#2 

CQR T USE E»R 13 N9TICE CHANGED 4 BIT FIELDS 
TF3X1 SkA »7<fb6j bRU * + 2 (OUTPUT A 4 BIT FIELD TO TYMNET); BRU TF3X2 
STA_Tl.;. STk._J" __... ... ._._ ...._._. 

LDA FIVE:, Su$ T2; RCy 4; CxAj LCY 8 

MRG <2ii5; i;IR; STA TPAIR2; ETR KM4Q0; MRQ 9NE 

BRM TRQPAIR; ElK byTPuT A 3 FOLLOWED BY TERMJNAL CHARACTERISTIC 

LDA Tl; LDo T 
TF3X2 LCY 4; 3KR T2; bRU TF3X1 
BRR TF3XMA 



r . ! 1 



^yp 



^L^ir 






PAC 






I DENT 
USTM 



6/31/73 14557 



PAGE 



* ENTRY P9INTS 



PACPMji 
DMS111 



ENTRY 
ENTRY 
ENTRY 



PACQ2 

PACU3 
PACU4 



ENTRY 

ENTRY 
ENTRY 



ENTRY 
ENTRY 

Entry 



ENTRY 
ENTRY 
ENTRY 
ENTRY 

iNTRY 
ENTK~y 

ENTRY 
ENTRY 
ENTRY" 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



Z3v 



PACSw^RAERa^SWlN/S^LS/SwTaiSWPMTiSWSMT 
SRT4>£ 

KA.EN.eR/ QT I g.Oj PACSwtf/. PG44* PQ.PP4j P9PR5 

RLvnB 

KAEK2/RAje D 2#CMPSTiNpeppS 
CMRR^LlAC^R^LS^CMRR^a^PACGUE^PACjQBiPACeMP/RAje^l 

RAj0 6i3AjBb3*RElP3#SMPR#Sl*API/SWjeB 

RELMEM/RE.LPu3/RELPCi8#SETSwP#PePx 

CL1NTC J ?_P0PK2#P0PR # PACD I V !S 

MPPACT/RUTS/PJPACP 
PUDEAD#PirfNl 
...P^TI^NPePA^NxP^P^NPUPxB.-..- 

mPDSC/NPWb^NTE^Mj alterm 

SRT/SRTE 

PACDMd* POP a* XPdP, PACE/ PQPDM$, SETSET 

PACGa#PEST/PepliNr#P9PST/PUGe#NPUGe/QQEDMS#PACGei 
FPULST/PUEPTH/PU9PTR*PgPAC 
JPRLi PTRL/ LAbEl/ CHREu 

KRL is RkL2# RRL3^ T I ME * TT I ME* T I ME 1/ UNQSV/ PUCTR 
RREA UjEx OMS , D M S 
EPu/F"PLST/^SCH#QPUT/ I IK 
CLlNT,PrtFI*TRAPT/M8NCRi CRASH* ST9P 
_ PPTE3T,PTESTSiPAaVL 



PACDi 



1 6 & 

X/B 

35B 


PACDMcJ 
PACDMQ 
PACDMJ 



; 4iUANTgM ; 

bRS 45 
TRAPT 



j} ls.mjlss. 
overflow 



SCHEDULER 



* ACTIVATION C3NUITI8NS 



PAC 



PAGE 



n 



# 1 

# 2 

# 3 



* 10 



# 11 

♦ 13 



* 14 

* 15 

* 16 



* 17 

* ao 

* HI 



c<C 



?3 



* 24 

* 85 



36 



27 

30 

31 



•vBRD G REATER than 

w6RD LE Q. QMS UNTIL FREE PAGES F8R &I8 <DL©CK NEGt ) 

weRD GE 0* DISC FILES. 

W£J_R0 LE TTY EARLY EARNING* (OUTPUT BUFFER) 

SPECIAL TEST* ^KD P9INTS TQ A SPECIAL ACTIVATI8N TEST 

RSUTINE. TARE READY TEST. 

lNTE.RRjjPT_9C.CiJR8te- ADDRESS. HAS. A ..BIT SEL .CORRESPONDING T8 
THE INTERRUPT WHICH 6CCURRED* 

I'.cJRD LT REAL. ( INPUT BUFFER) 

SPECUt.* F0RK..N9T ON QUEuES... ._. 

ADDRESS 

C DEAD 

R U N N I .\ G 

BRS 31» DM3 UNTIL" LeWER" FORK PANICS. 
UNCORRECTABLE RAD ERR8RS. 
Ea_EC bRS. 

BRS"~io9, DMSuNTIL «FF INTERRUPT PROCESSING* 

6 R S 3 • 
•__b_RS 124#1P5» 

) ab7«0t DISC BUFFER IN USE. FILES. 
• FILES. FW LT jt 



TtR[T~( AN 
AttRD LT 
.H5.P.UT. . 

* ■■ v K D G 1 



. PLEASE LOG IN. 



*t;RD 



*GRD 

ueRD 

wt)RD 
WORD 



' G • 
• 
. 

u • 



EaEC wRS. 
B R S 9 1 
.iJyANTk! u !..0VEKFL.9 a. ...... 

BRS 45* 

EXEC LEVEL PANIC. 

ORDINARY PANIC. 

DISC ERRORS QF PL 3 SEC w BUFFER TIME 8UT. 

TRAP. 

0» BRS 111. 

• B R S 4 4 • 

SAVE FOR BRS 4*» 

SAVE F&R RFK* 

SAVET>yR COMPUTE jQfcjV 

SAVE F8R P\j* 

j*eRP GT Q* BRS 8 1 t_ DISMISSED F0R LAC K OF SPACE. 



Gl 

GT 
GT 
GT. 

GE 
Tu 
GT 
GT 



*t?RD 
*C 4 Rp 

NOT UGED. 
N9T USED. 

■NOT gSED* 
NOT USED. 

A £3 r> 






- ^L| H ^ 



o 



# 


32 


* 


33 


# 


34 


# 


35 


# 




♦ 





bRS 138 DISMISS. 

v'^RD LT 0* NEW TAPE' ANP PRINTER* 

wl. R P_LE__0« NEW TAPE* 

w6RD C3T 0* TRAPT* 



PAC 



PAGE 



* ««« LOG SYMBOLS 

# 20 FKG&2jFkG0*PACPTR 



* 21 PMTA/PMTA 

* 22 PSPD9A 

* 23 PURbT/PUPACi PUTTY 



* 24 PGETiP'oET/UTTY, jOtf 

* 27 CDMSl/jBB DISMISS 

* 30 BRS153* Ci L'^GasPAGE 

ACTIVATE A FQKK» 

KETCH COMPUTE J0b» 

SaAP. uTI J0d..___._... 

RELEASE 



JRS 122*123 IF ORG FULL 



* 32 PACG£S>#jS[j 

* 33 FCj#Swj86 

* 34 PEST3*SWJ9l> 



* 35 RELPG/gOo#KEi,PG 

* 36 UPuT/kUEUE 

* 37 CiPU'T /u p UT 



PAGES* 



# 40 QGET, QUEUE 

# 41 QGET* ..GET 

# 42 PapRP,-JSx 



i.ExT 

DISMISS WITHOUT RELEASE 



43 
4 4 

45 



iV 



TPUT/'^TFUT 



* 46 RELMEhiRCLMEM. 

* 47 SwApiS/.AP 

* 50 UBRSET^JOB 



RELEASE memory 



* 51 BRSRET/jS 

* h? STRL'^U 

* 53 



54 

55 



* 56 PTRAPiPTRAP 



* 57 FKST/ XPB dRS 9 

* 60 SkRCL*3wREL 



* input: 



ExEC DISMISS 
-X; LDX SSQ3 



PAC 



PAGE 



X.*PACPTR» BiPTESTt 



EXDMS Exu „ r „_,. -_ 

KO 2208 (CXA/CBX); MUL THREE; LSH 23; ADD *QO 
RC H 4403 (C XB/C A x ). j M I N Q ; B R U P 6 P D M S 



NP6PDS BR' 

* psp Exit 

P5PR M I\ 
P9PR2 



# DISMISS UNTIL INTERRUPT 

* 6RS 109 

_QMS \J2'd..*7QV.QQ£&i STti. PACDM.Sj. ii.Ku.PePS.T. . 

MPPACT; 6RU PQPDMS 
WITHOUT PAGE RELEASE 
^ _g.;. Lpti.PMSin _ „..._._ _ 

U 1 -■• ; L'-^o^ ^ 2 3 # L SX; E I R 
STL; PACDMS; LDA PACPTR 

LDx »QQE; SKN PACjduj oRk_ PQPRi; SkN TTJME; 8RU * + 2 
LRU ;:> ePR4; STx PAUuE; dRM QTPjT; b^U P9PR6 
SKN TTIMU cRvj * + 2; l3RU P9PR*; LDX PACSWQ 

XXA ; ADD .PNE xTi XXA 

P8PR4 STx PACQUE; BRM CiPUT 

PSPR6 LDL PACD.'^S; LDa PACPTR; STp PTEST,£; STB PTESTS; BRU P9PD9 

« RELABEL PAC TAp.LES ^.EFOKE EXl!" 

-1PPACT; LDA SSoi; B«U XPGP 



>RM 



SSQ1; 



NXP0P STA SS')l; 
NPftPXB 0; S' 
SNPQPxQ tiRM M PP A C T_ 
$PSPXQ MI,\ 0; oRU POPx 
NPGPX 0; LRM MPPACT 
»SySP5P E aIT T} -;rt store 

LDA "SSCI 
IF DtflFP 



c3PM NPaPx 



PVP* 



_Ci^l R A L, __RE G IS lER S 



$3P8PX 



E.NDF 
$P^PXo LDu 

IF- 



DDJFF 



$xpapx bss 

ENDF 
LDX 


U 

SS0'3 -.'■ 


XP8P bRR 
SPACQhl MIN 
PACQE LDB PACQ8 






o 



o 



QQEDMS LDX =QGE; SKN PACjQBj BRU P9PDMS (NQT COMPUTE J88) 

SK* TTIME; BRU *+2; dRU P9PDMS; LDX »QQC 
»P9P DISMI SS ENTRY P9INT 

paPDMS STB PACDMS; SKN PACJ9B; bRU PDMS? (N8T CBMPUTE J9B) 

CXA; $<E «u-I0; BRU PDMS2 
IF D ISQ3; LDAKM^fi ELSE; LDA KM8; ENDF 

ADM TTlMt; SKU fflMEj LDX »UuC 
PDMS2 C9PY XA^xi3,i SK.v SySTj BRU PDMS4; SKE »GQC; BRU *+2 
t-RO PDMSh; Skg *r>TI; ftRg PJMs^j ^Db sQS.GU 



PAC 



PAGE 



a*U..P9PSl£- 



PDMS4 EUw' * 

PDMS3 CuX; L^a PACPTR; STx PACGiUE 

u RM 'jPuT (PUT PAC UiNi QUEUE); 
P9PST ClA; STa PAC3UE 
PePST2 IDc PACDMo (PICK UP DISMISS C9ND) 

IVY PACPU , ST j. PTEST,2; STo PTCSTS 

TELKMINAT INO F9RK 



RELEASE pAGrS yP 

LDA PAC3UE; SKE *QiC; BRU #+R; bRU P8PD9 
X» ; LOl, PACPTR; LDX j9U; BRM_ RELPG 
F c k 



P9PINT LDA 



* CHECK 

F3PD9 Euu * 
IF ST 



LP; 
RELEASED PASES 



DI 

LP 
2 


R ; SK 

A sRS 


11 


S T S w ; 
; ,RM 




3 

*7' 


UTTY 

PAGE- 









dRu P9PD9A 



bRM SSS 



2 PPTEST 
2 PTESTS; 
2* YRL1 



2* YRL? 

2 XPb 



__7 JNSSV 

r -lal"" 

P9PD9A PIP 



LDX PACPTRi LDA Q; ETR .1300377778; XMA PL#2; ETR -77Q0000B 
Ap.M PL* a (SAVE ST A R.T_.._L«C]... ..... 



DIP; L6GQ £2B#PACPTRj LOGS 2Pb7j8B; KIR' PAC PAGE 6~ 

*SAVE CENTRAL REGISTERS 
SKN XPB; d*U .PACGU1 



LDx XP8; LQA SSQ2; STA Pb,2i LDA SS01; STA PA, 2 

LDA SSQ3; STA PX#2 
IP DDIFP 



IF FPh 

hfst fac1#fac2 
_ln:;f;__ 

S<N SFP8VI 
bRU PAC1C 
^9P.Y A FLOATING 9VERF.L8W YET.T6 BE REP8RTED 

STA SFPOVI 

LDA PACPTR,' SKF ,*uCi BKU * + 2j aRM RCJ 

LDX PACPTR; LDA K2 W 4; .b.RM M8.NCR.;.. NOP 



PAC1C B3S 

F j^ F 
»SET UP proper .vUANTU^ REGAINING 

lDA~TTTMFy~SkG"KMi';' 'Ll)A"'.Nuao;""STA~Lo''" 

iPACGSA $*,, PAC*tft,# bRU PACuei; LOA TTIMEj 6RM SJB 
PACG8 1 _LUA =SLTTb; STA TjUb (SET ACC6.UNT TR SYSTEM) 

CLA; STA PACJOu; STA SCHLP 

___ AR^I Al^Df*„ THIS SH8ULPNT hAVE. TO be ..executed every time thru 

* THE SCHEDUIAR 

MUX 1 5 L P A F G9 4 Q Aj_£T_A_yPF Li.XEA__ J!fl!^oaj_£IA-ilP_EL.*.t 

IF DISCO; LDA ■2B5+1; STA DRQg; ENDF UP FLAG F8R DISC 620 

» TEST FOR PU ACTlVATie.N. DON'T RgN IF qTI J8b IS C8MJNG JN* 

SKN PACSw; BRU #+2; BRU PACGU; LDA RAJ8B2; SKE ZER8 

Bku PACGa; LDA PuTJME; SK3 REAL 

bR U PU3SEC; LDA PuCTR; 3KG ZERO; B&U RACG© 

SKN PURUN; BRU PUGtH 

SKN ACTR; lRU #+2; bRU PACGSj SKE PUCTRl 
BRw PUG*4; bRU PACGD 



$AIRwD E'Qj * 

IF SISC»3j DA T A 614 o3; ELSF PH2i DATA 6Q4B3i EL$Ei DATA 77B4j ENDF 



~o ~ " o © 



1*1 



o 






# START SC 
PACG9 LD A 



pacg$2 



SKN 

SkN 
SKN 



HEDULER 

_<Ml ; ,_gTA„.D,NiT£.RM; . ST A ^P_URUN 
M48K; cRU #+2; BRU PACG62 
'JQC; iirxU FCJ (FETCH C9MPUTE J9B) 

_PACSwi BRU Fa j (FETCH *T\ j8d) 



PAC 



PAGE 



iTI JOB EITHER IN 9R CQMING IN 
CLA 

DI 



i__.SK;;i.._3CHL.p i bH'yj. PACGSli SKE RAJ9B1; BRU PAQ.G22 
BRU PAC367 
RACG21, SkN RAjetbi ; BKU * + 2; BRU PACCa07; MIN RAJ9B1 
PACG22 EISj eR'J PACwf _ .( RUN C9MPgTt_. .J0B_..9R...WAIT ..) 



PACG97 
# QTI 
PACG9*f 



E1R 

V V {J 

L l ) X 

'BRM 
PACG06 b«M 

IDA 

LDA 

L P A 
» ACTIVATE 
PAC695 LD>- 

AC;-:; 

DIk. 

LDA 
LDA 

D I R 

LDA 



READY 
PAC5 
SETS 

LADE 
E QJ5 
PNE.X 
PAC',, 
A Fj 

■ 9hE; 

; L^G 
* /Ou 
= NEQ 

« S K G 



U; Ru?- 



/.P 

L # 
i 

T# 

T; 
Rk 

L 

b 

00 

U; 

T 



_5L T .X.._PACPTKi SKN RA_ERl.;.. BRU. N9G.8 

; LR N ' SwAPI 

CLA; STA PACSw; STA PACjOB; LDX PACPTR 

S T A PTEST/2 

2; LDB PACSWo; LDX PACSwP; BRM qqET 

STA Ti SKR «AJ0B1J *RM M3NCR; LDA *NSQUj STA TIME 

LA PACPTR; ADD" "«PLj STA YPTM + i/S" 
RX #-2; LDX PaCPTRj rm PGET 
Icb>J®i\.i L^GG 32k/ PACPTR; OR . 
18j XMA PTEST,2j STA PPTEST 
SKN XPbi 3RD #+2; LDA LQ; STA TTIME 
IMEi STA TIME; EIR 



REAL; STA TIMLi 



LDA 



»CH£C< F9K INTERRUPT AND SET_Up STARL_L»C_ (0) 
bRM St STAT 

Xlj SKA PI- v t/2; BRU PACG98 

LMCPQ; BRU »^2i BRU PACGC18 

cK" CTRU; L D x PACpTh; 3ko L^'CPy; BMJ PACG63; BRU PACG99 
T; Lr^ri 15^ ADD sACTLST; xMA Tj BRU* T 
p L/2; STA G 
LCY l; L3h 1 (SET UP 8VfcRFLBW) 



PACG9B LDA 
PACSRT LDA 



PAC9VF Rev; 

CLEAR 
IF 



DDIFP 






ST A 
E.NDF 



LD X 

IF 

IF 



HFLL 
EN DF 

ENDF 



UMTF 

APhi t^U PACabi LDA LUN8j STA UN6SV 
xPL> 
DD1FP 

FPH 

FACUFAC? 



PAC 



PAGE 



PACgL- 



LDA PA/2; 10b PBi2i LDx PX#2 
MI-N* Tj?3o; BRU + 



# RE T 

PACGti 



ExCC FOR CPU TIME fJVERRuN 



^<i ; 



LiiCPu 



?N Ti: 

L,, L/ O 

.LDX... 

Q T k< 

>~u> d ; 

LDA TFC0h;_3KN PAC.9Aj J.QA TFQDJ 

STA Pl*2; lDA xl; -R(3 PIM/2; STA PIM,2i LDA X4; LDB PACPTR 

LOa Jftb; fc>r<M RELPCa 
bRo PAC'jSA 



^11 y j__._..lDx .. TIYASG # 2i LDA__PPTE/2i _SKA PRMSK; CLB 
PAC9A; 6RI1 HFk; STX PUPAC 
BkM rFk; LDA «QTI; BRM TFK; BRM QPUTj LDX TF01 



TFC03 
TFC04 
PAC9A 



IRQ 



ckcpu#* 

ckcpuim 

o -eg. if in exec 



# 

* SET 
$STST< 



5 T A T U 

■T £RQ 

LOA 

CLB; 
L u D 



SKc 
STB 
LD A 
LDX 



S F H K F tJ R K 

;_L3A r-TA D ,2.i LCY l; RSH 23; STA EXECl *l F6R SUBSYS STATUS 
i^?J CLBi SKA K200; LDb nMI; STb SYSS 
Sr^A K^fOOj LDtJ KMi; STd EXECS 

X2> ^SKin E xECl; LDB X L_ 

SYS3# LD8 X3i 8KB EXECS; LDB »37B6 

PRlLfc-V HIGH F8R HIUHLY P»IvELEGED FORKS 

S NePj SKN S YSS; LD A SNTRP; STA NSYS 

SN8P; SK,N EXECS; LDA SNTRPj STA NExEC; BRR STSTAT 



* SCAN SPECIFIED" QUEUE "FOR 

* INPUT; XsjUEUE (QTIi) 



A READY j6d 
» ,N3 SKIP RETURN? n& RE ADY JQB 



(fi 






o 



o 



* skip return: 

SCAN IHd 
PACSCN SIX PACLVL 



XsPACPTR QF READY jQ* 

(SAVE uUEUE); BRU PEST5 



PAC 
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* SCAN PACT 

PEST IPX PACPTR 

PEST5 SKN. P NExT/g; 

LDX PNExt/2; 



PEST** 



LDA 
JoRR 



BRU PE3T4 (NQ. READY ..J9BS).j STX PPREV 
STX P*CPTR; LDA PTEST,2; LRSH 15; CAX 

-TA T; LDX PACPTR; LDA* PTEST#8; BRU# T 



$PACACT MI 



CACLST# 2; 
SCAN 
i "SCAN; LDX PACPTR; 



13RR SCAM 



# FETCH ^ E L E_j i}o 
FQJ LDX = G T I .> ; 

r lv J c, LUX = G» I v «,> # 



B'RM" SCA-T;" b^U Ft* J2; BRU PEST3 



LDX =GQ£u; 
FQJ3 MIN PU^Jrw 



* SWAP 
PEST3 



PEST2 



FQJ4 



bKM SCa.n; 6NJ * + 2; uRU PEST3 

Ru .F.aj3 

bRM SCAN; BK'U * + 2i BRU PEST3 

. LDA KMii STA ACTR; 3KN GQC; BRU PACG81 

CLA; ST A TIME; SkN CMPST; BRu CMPG6 

SKE RAj9u2; BRU PACGQl; fciRU CMPIN3 

in cjti jya 

LDA sSLTTy; STA TjuB 

LDa PACPTK; LDA Pl*2j SkA <lb5; bRU PEST2; LDX T; Six PACQT 

LDX PACLVL; STx PACSwQ; LDx PPREV; STX PACSWP; LDX PACPTR 

LDA FQj^; A MA PTEST/g; 3TA Fujb 

STx PAC3*; LDA «RAjU81; STA SwkAJ; CLA; STA RAjQtfl 

LDA PTE3T/P; L^SH 15; ADP -QTI30J STA RFR 

_lR v SJJSi.P; DIR; L^oCi 3<f t>jSwj8u;_n*j bRM SWAP 

tJRU PACAC3; bRU PACG06; BRU PACWT 

ETR ■•1-Joi; STA PL>2; SKN PNE*T#2; BRU PEST3 

LDA PNEXT/2; LDb PACL V_L 

LDx PPREV; &Rm QGET; LDA PACPTR; LDX *QTI; BRM QPUT; bRU FQJ 

bRJ PACDM6 



# QTI jQb HAD READ ERROR 

PACAC3 L DA cF:,,J; STA PACACf 

PACAC2 LDX PACPTR; LDa PTAo#2; LRSH 15; ET^ k77; CAX; DIR 

LDA TTN9#2; ADD K1C0; SkA ;<4G0i 3«U PACDEL 
STA TTN3j2; EIR; BRU* PACAO 






NBG0 faRM SETRELi BRM SwREL; CLA; STA PACSWj LDA KMU STA RAERl 

LDA »PACGBg; STA PACAC4; BRU PACAC2 
* REM8VE USER 



PAC 
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PACDEL ETR .77777077BJ STA TTN5#2; EIR; LDX PACPTR; IDA PNExT#2 

LDB PACSwq; LDX PACSWPi BRM ijQETj LDX PACPTR 

IDA «700003Bl STA PTEST,2; MIN RU; BRU* PACAC^ 

PACAC4 ZR8 o EXIT LPCATI8N, 

« FETCH Cf'MPU TL' JOB 



FCJ CLA; STA RAC0MP; STA PG44; LDA ONE; STA CMPST 
MIN SPR; SKA SPR; £RU FCU5 

IPX gjjGj ^; BR jl_S£Aj>X-.aRlL.FC.J5; BRU F.CJ4 . 

FCJ5 LUX whSQ; 1:.,RM SCAN; dRU FCJ3,- URU FCJ4 

FCJ3 LDX WHGU2; BRM SCAN; BRU PACG02 ( N8 COMPUTE J6B) 

1SLJ± §IX-PA^MPjL_iJ^A_ wH^itj XMA ..*Ht?.£2i. - ST A.....WH9Q 



LDA PNExT/2; LOB PACLVL; LDX PPREV; BRM QGET 

LDA T; STA CMpQT 

LDA PAC S MP; LDX PPREV; SKE PACSwPj BRU # + 2j STX PACSwP 



LDX «QQC; LRM GPUT 
FCJ2 LDA <mi; STA CMPST (JOB CQMImq IN) 
LDA jsRAjeba; STA SnRAji....LDA x4; STA SwP&j .LDX PAC8MP 



LDA ?27d + QTIG9; STA RF'R 

BRM SETS/vP-; DIR; LC/SG 33BjSWj8l3; EIR; ERM SWAP 

BRU * + £; 6RU PACu8a 

Stu CMRRL2; $TX CMRRL3; !*i N CMPST 

STA CJP 



D 



KL 



STA 

LDA 



fTjDCL; 

CMRRXi; 
SaI>U4> 



READ "ERROR t M8VE 



J8B TO gTI AND TRY AQAINt 
NBCQMP LDA <MU STA RAER2; QRM SETREL* BRM SWREL 
FCJDEL LDA 8 q^C; LDB »Q^U; CoXi BRM wGET 



LDA PAC3MP; LDX *QTI i bRM JP U T 

CLA; STA CMPST; STA PAC8MP; bRU FCj 



* QUEUE Jt-fc IS SWAPPING* RUN C8MPUTE jeb 8R WAIT. 

PACWT CLA; SKE CMPST; BRU *+2; 8RU CMPG8; SKN CMPST; BRU PACWT3' 
PACWT2 SKE RAj9|32j BRij * + 2; B^U CMPIN; SKE RAJ0B1 
BRU PACWT2; bRU PACG9<* 

* WAIT FOR QUEUE j96« MO COMPUTE J$bt 

PACdT3 SKE RAjQb l; BR_U *-ji BRU PACQ&4 



o 






* C3MPUTE J5B JUST CAME IN 

CMPIN IDA <Ml; LDB *36; D1R; ApM RAjOBi; STB TIME 

g\ R 

CMPlN3"Mi'N CMPST; LDX PACuMP; SKN RaER2j PPU NQCSMP 

BRV' SETS*P; bRM SWAPI 
ST A CMR«U# STl> CMRRL2* STx C^RRL3 



PAC 
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LDA r o'*lNi4; STa CjP; LDA CMP^Tj STA T; LDA CMRRUl 

BRU CMPQH2 
* C&MPUTE J OB REAiY Trj Rg.\ 

CMPG6 UOA «wETTb; STA TjBBj LDA <Ml;"STA SCHLP 

LDX =OC;C,; BRM SCAN; bRU MUXi5* LDA *SETTBj STA TJ8B 

LDA =36; D1R; STA TIME; S«R RAgGblj NOP; EIR 
C^PS03 LDA CMRr^Ll, ID 6 CMRKL2; LDX CKRRL3 
CMP682 LR V ' LA.,EL 
LDA CJP; Lu>x L.,»; BR i^N P C 

LDX PAC6MP; STx PACPTR 

LDA «Q^C; LDd eGi*Cui CBX# tfRM UGET 

LDA <M i; STA PACJcto; BR.U P. A. j 



»£E T UP Fjk S^'Rt'L 
« IN'PuT; xsPACPftf 
SETREL ZRS; LDA PTAB/2; LRSH lb; ETR <77; CSPY AX#XB 

LDA...^MTP^_2j ADD ■-N.CMEMj.....S.TA_..S«P.MT.j....xXB - 

LDA : --Ll>c; STA SaRU LDA RL2j2# STA S'aR?; CBX 

LDA RL3*r; STA SWR; 3 ; BRR SETREL 
« RELEASE PA GES F,rr< USER *JTH READ tKRflR 
* INiPuT; PbEU'DS'-REL IN SirfRl # SrfR2* Sl*R3» 
« PhT ADDRf-NCMEM IN SWPMT 
j^!_ w _i_ L _....^ rj ' k± A S^kI; _LD D SaR2; LUX S-«R3; 3RM UPRL 

01 R; L~OU 60b# SWREL; ElR 

LDx NIKE^ STx SwRL3 
S>' ! RL7 LDX SV^L.- g L DA SRT*2i G«E ^Udj... bRU_.* + £;. BRU. SWRL4 

SKo sNCMEM-l; uKJ SwRL : 5; ADD S*RMT 

CAx; LDA j^2; ETR *77&5; SKE K^b5; BRU SWRL6 

C*A;_MK3 x^; DJRj dRM REL; EIR 

SkR SHRL3; BRU SWR u 7j DJR; BRM RAGS; tIRj BRR SWREt 

ADD =STf; LRU S'WRLo 



SWRL8 
SWRL9 
SWRLt 
SWRL5 
SWRL6 



SKE rf?B5; .i2_R J_. * + 2; BRU. SwRL9i SkE *126S 



b&V # + 2; bRU S*RL9 
SKt F3S5i LRM MQNCKj 3RU SwRL4 
SWRL3 ZR6 



PAC 
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# SET UP Ft;R SwAP 

SETSWP _iKBj_ LOA__PTAB#£i LRSH I5i £TR <77; STA SwjSB 

LDB RL2#r'; LDX RL1*2; XXA; LDX RL3#2; BRR SETS'WP 






* RBUTINE T3 RELEASE PAGES. 

* SUBSYSTEM PAGES G8 *ITH LOrt PkIGRITY wRITEt 
» INPUT: b.PACPT*/ X=jOo 

* A*0 f^<< Uu'a' PRI9KITY wRITE't A*X4 F6R HIGH PRIORITY WRITE* 
RELPG in';} STA RELPui; LCA PMJP#2; ADD — NCMEM 

_ST.A .. JlEk_P ^,1__..LPM I. _ A p Q R - {>ic M E M. ) L...D I R j_L 9 G.G 3.5 B *L.Q..G X 

L3GG 3=>6#RELPG; EiK 

LDX RL3#2; XXB; IDA RLU2; LDX RL2*2i XXB 

b RM RELME.-1; j3RR kELPO. 



# RELEASE f'-EKBRY 

RELMEM cRr<;~DIR; L r)GG 463*REL.MEM; ElR; 8RM UPRL; LDX NINE; STX RELPG2 
_RELPGl Lux_RELPG£, kOA SRT,^; SKE /ERuj BKU * + 2; B^U RELPG5 

SKS =NC<M-li l-RU RELPG6i ADO r%ELPG3i MRQ RELPG8 
RELPG7 DIR; gK* REL; EIR 

RELPG5 S kR RELPG2; tiRU RELPGf; PIR; gRM RAG©; EIPj BRR RELMEM 
RELPG6 ADD =S N :T; ..RU RELP^7 
RELPG3 l,kt i) P*1T ApDR^NCMEM 
RELPG2 l.H c > TEMP STBRE F^R IX 



RELPG8 ZRP PRIORITY SWITCH, QsLO'w PRIBRJTYt 

» RAU9B1S UTI jOu __..._. _._ „.._ 



« RAj8D2«CttMFUTE J&b 

* RAj9b3»RP< USERjp yRS '44# AND OTHER HANG CALLSt 



PAC8MP iR$ " "D " P A C P T R a F ' CO MP u T E ~ J B w 

CMRRH ZRR 0_ RRUl FOR COMPUTE Jda 

CMRRL2 ZHd (T~ RRL2 FOR COMPUTE jOb 
CMRRL3 ZRe RRL3 FUR COMPUTE U^B 
$CjP iRfj Q;» N9« 9F C OMP UTE J O B PA GES/ 



o 






^^0 ■ 



$PG44 2R0 N0» 9F PAGES READ BY gRS 44 

SCHUP Z «6 Q -1 IF WAITING FOR ggc jaB T8 BE READY T8 RUN § 
CMPST ZK6 () COMPUTE j8(i STATE. n*C6MlNG IN, o*IN. lfN8 J8B, 
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_Z_R6 _0_ SUPERVISOR SwJTCH. SUPER RUNS IF SWITCH JS EVEN* 
DATA GuE::.v SET T9 UQEG 8R Qie«# WHICHEVER WE TRY NExTt 
DATA QI9Q 



G I 



SPR 

WH8G, 

WH8Q2 

CMPQT 

PACSW ZR9 

PACSWU ZR5 

PACSWP ZRd 

PACUT ZR? D 

racuQb zRe o 

PURUN DATA -l 



ACTIVATie.N C8NDJTI8N F8_R C8MPUTE JOB 
PACPTR 8F u ea CeHlNQ I.M FR'eH QTI 
,»UEUE 3F j;iB COMING IN (PACLVL) 
PPKEv tfF J^B C0MJN3 IN 
ACT. TEST JF jOb CSMMINg'Tn. 
G = GTI jtfb RUNNING. -1.C8MPUTE J0B RUNNING. 
NUN PU IF NQ QUEUE j8BS« 



♦CAUSE A PR3Q INTERRUPT 



PACINT LDA PPTEST; ETR K37; SKE F I Vfc ; BRU PU 

LDX PACPTR; LDA PTAb>2; RCY I5i ETR K77; CAX (J8B); 
IDA <183; C8 PY As,.*; ApM TTN8i£; . SKB TTN0 ,.<?.; BRM M8NQR 



Pll 



IDA FIVE; l£>X PACPTR 

LDu PL>?; bKN PL*2; LDc3 SBRSRT GET INTERRUPTED ADDRESS 

C8PY__A_x_/_P_Aj.. ETR ApMSK; U>X ..2003*6 GET. MARK 18CATI8N P8JNTER 

C9PY xA # AB; LDX 0#6; STB 0*6 (GET INTERRUPT RETURN ADRS) 

ETR AQMSK; ADD *4QQ00Q01B; STA 0; LDX PACPTR; BRU PAC8VF 

♦ CAUSE; a n INSTRUCTION TRAP 

PACTRP LDA pl-2; STA oT ClEAR 

SKN XPeIj; 6Ru PACTP2; L DX XPB; UDA PA, 2; LDB PB/2; IDX PX#2 
PACTP2 STA SSQli kTfl SSQ2i SIX. $S 03j TRA P 5* 



l£k. 



♦ACTIVATION TEST ROUTINES 

CACIST C CACO; CACl; CAC2i CAC3 

C_CAC4; X PACACTj v CAC6* G CACK 

CAC2J CAC9; CAC10; CACO; 6 CACO 
G CACO; CACO; CACO; CACQj CACO; 

CACO ; G CACO; PEST; PEST; PEST; 

11; CACl 



2 CAC2 

PEST i p. CACO 



CACll; CAC10; CACli CACO 
♦ SPECIAL ACTIVATION ROUTINES 
ACTLST BRU PACSRTi BRU PAClNTl BRU PA C T. R P. 



CACK 
CACO 

CAC1 
CAC2 
CAC3 
CACf 



SKG ZER3; t >RU PEST; 3H^J PACACT 
SKm Z.ER9; BRU pACACTj [3RU PEbT 
SKG <M1; BRU PEST; bRU PACACT 

bRM M©r,CR 
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PAGE 14 



CAC6 SKG 

CAC9 S ka 

CACIO SKG 
CAC11 



LRU* PT?„ST>2 

REAL; j;,Ru PACACT; BRU PEbT 
sYUY_; BRU PEST; BRU PACACT 

<Ml7" B^O PACACT; B^U PEST 
SKA «53*; pRU PEST; BRu PACACT 



PACDMS 7M r - 

PACuUE Z kv 

PACLVL ZRfc 

PPREV ZRf? 

PPTEST Z R:t 

$YPL ZR? 

$YRU ZR? 

»YRu2 Ihi . 



.._.^J.L^E. FOR. rEj^J.NATINw.„E.e.RK. 



$YPPTR Zftt 
$YPTEST £R& o 

$YPTAB ZR ft p 



$YPIM 

PTESTS 



Z.K& 



SAVE . . 6F ST ARTUP PIEST 



FPLST ZRO 

$SN9P N&P 
SNTRP TRAP: 53 



SAVE 0F DISMISS PTEST 



# PHANTOM USER 



# INITIALIZE P U 

PUINIT ZR&;"~CUA; ST A PACPTR; STA PUPAC; STA x PBi ST A JdB 



o 



o 



STA PMTjea;"STA UTTY'j STA RLTSj LDA XX; STA TIME 

IDA PUKRUli 10B PURRL2; LDX PURRL3; BRM LABEL; BRR PUINIT 



PUDMS LDA PUCTR; STA PUCTRl; CLA; STA xPB; EIR; STA PUSW; BRU PACG6 

# THIS CHECKS TO SEE IF REAL IS NE6 8R A68UT T6 BF» 

* IT RUNS EVE^Y 3 SEC. 



PU3SEC BRM PUINIT; LDA'REALi SKA X4; "tfRM MONCR 

ADD slfcO; STA PUTIME 

ADD »60*6Q*60*180_; SKA x*j SkN FATIGj gjRU PUQ83 

~~~ MP' PA'TTo; LDA «6#2B6; DJR; D RM TR9 (SEE BRS159); EIR 

■ LDA' 9NE;';-Ap^;-.AU'A;R^f-^ 

P U G 6 3 E Q U * ■ * : '3fV ^ ^^ y^r 1' ' 2f5 • ?: iW ? ^MM^P0MM^3 ^ M^^^^^- 

IT"IISC<T> ~" " TURN" POSITION py^ER SFF 8N DP DISC AFTER 1 MINUTE 

SKN IDCL1; dRU PUG83A 8F INACTIVITY 

ID A 5EAL; SJo =60*60; 3KG DR&AL;_ BRU PUG93A; LDA XX; STA DREAL 

$PPBFF Eft* I0£?6b; NOP 10227b; NOP 105226; N6P 10223B SEE DRMSET 

w Lp* **5 C- 



LDA 

SKE 
BRU 
LDA 



STA 
PUGS3A EwU * 



RQ1 

RQ3 
* + 3 
/X 
^c AL 



"CHECK TF DISC QUEUE EMPTY 
YEb*.. SET DREAL.. T8 INFINITY 



PUG96 



E Q U * 

BR^ WCLEAN 

IF ST 



# DU^P "STATIST I CS~6NTc) Dl'SC IF "A 400""w6RD BUFFER IS FULL 
$PUST1 LDA SP; lc3K SPl; SkG K377; BRU PUSTP 

__ LD_A__»RDP*liAJti+KSP (DISC AND_SET); &RM RLABELl BRU SDUMP 

PUST2 LDA s 06*03; dRM RLABEL (SDgMP RETURNS T9 PUSTl TO RECHECK ) 

ENDF 
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PUG92 LD* <mi; GTA PuS'W 

LDA REAL; .^SH 6; CAbj SUb LREAL; STB LREAL 

.MUi^NU; LSfi 23 i AOM UTlME; BkU PUG65 

PUG94 BRK PUINIT; 8RU PuG82 

* P»Ut SCHEDULE* 

* RELEASE PAGES 0F LAS T PU J9B ANIL..GLLAR PU RELABELING 



o 






PUG9 LDA =SuT'Td; ST A TjOb 

LOa PUj9b; LDA PM'TP/a; ADD *"NCM£M; STA RELPG3 
LUA mi sta RLi^PGS; LDA RURU; LPB PURL2J LDX. PUR13 

bRM REUMEMj CLA; STA PURllJ STA PURL3; STA PURL3 

# SCAN P8R P*U« JOBS 

PUGdS LDA PUCTR;VlRj SKQ ZERQj BRU PUQM§; EXRj LDX »PU8PTR; STA PUCTR1 
PUSCN ST/ PUCJMK, LDa 0/3; LbA 1*2; STA PUTST; LRSH 15; ETR K77 

AXC; BRU* PUCLST/2 
P'-'SLT ih'-j L-X PbCPTR; LOa Q#2; LDa ^/2; RSH 1?; STA PUPAC 

CLA; LCY 12; STA PUTTY; BRR PUSET 

* SET PL) RELABELLING BACK 

SPURL 2RS; BRM MPPACTi CLA; STA J0b; STA XPB 

LuA PuRRul, LDu f'Ur<RL2; LOx Pg^RL'J; ERM LABEL 

LDA PRL3; ETR k77; STA RLTS; BRR SPURL 
NPUGQ BRM SPJRL; BRU PUGO 
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$NPUNX'T bRM. SPURL 

* CAN'T PROCESS THIS ENTRY 

PUNXT LPX# PUCPTR; CXA; SKE PUEPTRj BRU PUSCN 



IDA PuCTRi; DIR; SKL PUCTRj bRu PUGP; BRU PUPMS 

* PHANTdM USER ACTIVATION TESTS 

_PuCLST DATA PgCRl*PUR£T*PU124A # PUCRl#PUCRl/PUCRl 
DATA PULe,PUTIM#PUCRl 

* TES T PR6GRAM INTERRUPT TIME 3UT 

PUTIM LDX* PUCPTR; LDA REAL; SK3 2/2; BRU PUNXT 

LDA 3,?; LDB PRMSK; LCY 12; STB PUTIM9 (PACPTR 9F FGRK) 
Cbx; LRSH 12; STA PUTTY 

LDX "PTAa/2; XXA; LOX TTYASG/g; E0R PTAB/E; SKA «77B5 

BRU PUT I HI WE F»UND S9ME OLD PUTJM ENTRY F6R ANOTHER J0S 
______ BR H PUINT; STx PUTIM8 (J0B) 

U0x. PuTI-ii; LDa PTtST**?; SkL «7rf5 (IS F8RK DEAD) 

6RU PUT IMS (NO) 
PUTIM1 UJ/* PUCKIf; LDA pgOEAU; STA l*2j &RU PUNXT 
PUTIM2"U)A <1B5; SKA PJM # a; BRU #+2; aRU PUACUi STX T2 

LDA sRUReTA; BRM SCFK; STX PUP&C 

SKN T2i BRM RCj; BRU PUAQT 



PUTIM3 LDA <1L>^# LOX PUTIM9; 3RM Hk; BRU NPUG0 

LUX PUT1MS; LUA KlbS; AQh TTN8#2l SKA TTN6,2; BRU NPUG8; BRM M8NCR 



^lito^ 






o 



o 



PUTIM9 
PUT I MS 
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* RE Me vTTxtraTpu entries 

PULS BRJ PUACTl 



* TEST FyR RUbtJJT 
PURBT BRM PUSET 

_UU_A_PUPA_C; LRSH 3; STA T I P I X j uDx PUTTY; SKG 8NE; BRU PURBT2 

tTYA53/2i BRU PURBT3; LDx TTYASG/2; $Tx T2; aRM PUJNT; LDX T2 



SK- 



LDA spuRBTA; bRM SCFK; STx PuPAC 

D IR; LttGG c3b/PUPAC; I.9GC. 23BaPUTT.Y_j E..JR 

Sk s -: T2, uKh RCj; BRU PoACT 

* sets 7 a re g if any fbr* is 3n ^qc 

PURBTA ZR& ; l -a PJk, 2jL SKA x.1; BRJ PU^BTlJ COPY XA#ABj SKE QQC 

t-RR PURBTA; C8PY BA#B; STB T?; 6RR PURBTA 
PURBT1 MRG X2i STA PIM/2; BRU PUNXT 
# BRS 112 &P 0N INTERRUPT 



PURLT2 
PURBT3 

PU124A 



SK- TTYA f oG/2; b«U PUACTl"i~BRM M8NCR 
LDA PUDEADi 5TA PuTSTj BRU PUACTl 



"~~JSt'R""HAD DISC ERRQR't" "ACTIVATF PU12^B IF TTN8 COUNT IS -1, 
jTST; SKG s-SBS-1; BRU PgNxT (16 IN PR6GRESS) 



Li-; a* p 

W< ^l)SZTi_ LDx PUPAC; LDA «PuR3TA; BRM SCFK; SKN T2 
oR v RCj; Jku PwACT 



PU 



£4d Egu » INTERRUP T FB RK F$ R ID ERROR IF INT 11 ARMED. 
LDA <2B3; ADM* PoTST SET gP TQ ACTIVATE AT PACTRP 
LDX PUPAC; LDA K1000; BRM IIk; BRU NPUG8 (UNARMED* CAUSE PACTRP); 

ARu__"AR ug - _i.ARMED. P.TEST._9.P-C0i;E_IS_5». .INT 1_1 WILL .JE JNVQKEPO 



PUINT 



LDx PuTTYj_LDA TF2.#2; CAB; ETR K77j CAX 

LDA =4;Ut:-.5; SkA TTNU#2; BRU PUMXT 

LDA TlPJx; 3KB »B113Y+KCY; SkG T>6; BRR PUINT; BRU PUNXT 



* ILLEGAL Pj INDEX 
PUCR1 BRM M8NCR 

# ACTIVATE P.U» REQUEST ROUTINE 



pUAcra brmpuset 

PUACT LUX PUPAC; LDA PTAd#2; LKSH 15; ETR K77; STA SWJ9B 
_ STA PUJ_e_tJ.;___STA J6B 

LDA »308+QTlG9i STA RFR 

CtiPY Aibt LPX «NCMEM 

STA PgRLl; S TB PURL2; STX PU.KL3J BRM SWAPRj BRU PUSWER 

BR S * LAdEL; LDx PUPAC; BRM PGtT 
PUACT1 EQu * 

IP ST 
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DH; SKN STSW; a*U PUACTA 
LDA = RSR; uRM kLAbEL; oRM SS$ 



6* PuCP TR 

1 REAL 
PUACTA E1R 



E N J r 

LDX PUCPTK; DIR; LDA FPULST; XMA* Q#2 

XMA ,j,?} STA FPULST; 3KE PUEPTR; BRU *+2j STX PUEPTR 



SK'^ PUCTR; MJN PULIM; EjR 

LDA PgTST; LRSH 16i ET r ? K77; CAX; BRU* PUC$ET,2 
* PHANTOM uSE' ; - REQUEST PROCESSING PhEPARATieN 



PUCSET /RC PuCRc 1 ; 7.W3* PUTST; DATA PU124B* PUCR2# PUCRl, PUCR2 

DATA PUCa&/PUTIM3/P^CR2 
* ILLEGAL Pu IN'UEa 



ifU. 



PUCR2 LR ! 

* ERRSR $,-;APpI,MCa IN PU J0o 

PUS'aER LD>. Jbo; DIR; LDA \lHa*'di aDo nIQOj STA TTN8/2 



PUER2 



EI ft; SKA K4Q0 

uKJ PUER2; BPU NPJ.mxT 

LD A.__-_6;.,>Di.___S T A. PUT SI; _ B.RU... PU.A_CT1_ 



* ^AkE ?• u* ENTRY 

» INPUT: Ael/^t 0*2* 2* Xa J#'?« Lg w 
X*PU PTR. 



i>_B_LLS_ f>F X^TTY N6t 



* euTPUT: 
EPU o 

DIP 

XMA* FPULST; Sk.R PULIM; u>Ru #+2j BRM M6NCR 

MIN PUCTk; XMA FPULST 

STa PUXSV; CAX; XMA* PUEPTR 






\J 






puxsv 



Six. PuEPTR; XMA Q,2} STA 1j2; STB 2*2 
XMA PlJXSV; STA 3#2; XMA PUXSv 
EJk; 6RR EPU 
ZR8 
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FPUIST ZRd 

$PUTTY 0;* 

PUBPTR I R'> 

PUCTR ZRd 

puctri zne 

FUCPTR ZR e 

PUEPT'P IRF; 

PUPAC ZK r : 

FUDEAD 6 



PUTST Ik 3 

PULIM ZRe 
PUPACP ZRH 
$PUSto £R0 
PURL1 Zh? 
PURL2 2RS 



""'"'1ST FREE" ENTRY 

TTY LiEINCi PROCESSED BY PhANTBM USER 

PTR. TQ 1ST ACTIVE ENTRY. LAST ENTRY P8INTS T6 PUBPTR 

\i0. OF ENTRIES. 

j CuunTER DURING PU PROCESSING. 

InD* PTRv TO ACTIVE ENTRY ..DURING PU PROCESSING. 
LAST ACT IVE ENTRY* 

'j PACPTR OF E.s-TRY bEI^G PROCESSED BY PU. 

JL ■ ,, -;.uLL..PiJ.. EMR.Y. .._.._ ....._. _.... 

NPUG C9UMTS Nfr, OF PU ENTRIES. 
.0 PACPTR...FeR PU_ _ _ 

0;* -l * hem in pu. q 

. . . —- . 



^ELAbEUl^G FfiR P 



9THfc.RMSE» 

u* je^s 



PURRLl DATA <*C^<f340tJ 

PURRL2 DATA 4340<t » s <iQB _ 

PURRL3 EAT A^^ ".).- 

PUT I ME ins o 3 SECOND ACTIVATION TIME, 

PUjBb Z«? 

'""LAST REAL" FUR" TIME CALCULATOR- 



LREAL ZHG 



GET USER T6 CtfRE 
INPuTj_x a p_ACPlR 

I k '$' ;"" S T X Pv P AC; C L A ; 

LDA PTAcJ^2; LRSH lb; 



PGET 



STA XPo 

ETR K77; STA JBB 

^x;_A.!?:P_«ETLii. STA Tjt?B (SET UP TIME CHARGING) 



LDA PMTP,2; ADD «2000000QB»NCMEMj STA PMTJ8B (SET UP PMT PTR) 
DIR; LDA TTN0#2; ETR *77776Q77g; STA TTN9,2; EJR 
ETR K77; STA UTTY (SET uP...gSER„_T.ELE.TYP_E.) 



PGETl 



LQA RRL3; ETR Kll i STA RLTS; LDX PUPAC 

lda PTAci^a; ska xij bru *+e; bru pgeti <no ts block) 

LDA PI^.#c;; ETR »7Qbi LRSH 3; MRG X<W STA XPB 

til*} LOGO 246/PGETj L^GG 248.UTTY; L8GG PhBi^Bi EIR 

bRR PGF.T 

_£Ky. _. .. 
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* SWAPPER 
* 

JL_PREPARL_IS._su L , F.&Rjo STARTS, RE API NG._J>AGE5 IF NECESSARY. 

* INPUT: PSEuOe-RtLAbELlNG I M A#B>X 

* jOb N^« IN 3^j6b 

_* RAj9b PTk« IN SkiKAJ i 

* IN SrtPo FHk uUa PRIORITY R£AD» 



* X<+ IN bwPb FUR HIGH PRIORITY READ. 

* S»Pb IS SET TtLJJ bE£GRE__JH£ SwAPpLR EXITS* 

* RETURNS^ NQ SKIPxREAD ERR3R* AsERkOR COUNT 



S * A P 



1 SKI»«PAGES ARE IN, REAL REL- IN A, ft, X 

_ ^_N;_Jr__PA;_L3 A^E NOT IN/ BwT_ ARE C&MINQt 

ZR-; DlR, u&GG <f7fcj/SWAP; EIR; ^TA SWRi; STB StoR2* STx SWR3i BRM UPRL 
LDX Swjfri,;; LDA PMTP/2; ADD =*NCMEM; STA SWpMT 
CNA; ADD .5M T ; S TA _SWSM^ 

3vti S-RAj; CAx; LDA X<4 ; LRSH 0#2; STA SWRAB 



Sw'LPl 



L C A s R A J ti 13 L ; 

LDA* S'aRAJ; STA SwRAI; MlN* S'wRAj 

Lux <MlUu ; LDA SAjbbi J_TA_i_s_§il 

STX Swlx, LDA SRTE#2; oKE ZERS; bRU * + 2; B^U SWLP 
SK3 sNC^EM-1; ADD swSMT; ADD S*PMT 

MRG SviP'd MRG SwRAb; MlN* SWRA j; PIR j BRM B; _E_I_R „ 

LDX S'wlx 

,>RX SWLPl; CLA; STA SwPB 
DIP; .c^N RAGS; EIR 

Sk^*"'"SARAjr~N'JP; LDA* S^RAj; S»vE S'wRAI 

dRu SwSKH (PAGES NbT ALL IN) 

L DA SwRAj; SU6 »RAjtfB; CAx; SK^ RAER*2i 8RU SWSKO 

BRM SWlNj M_N S'^APj =jRR SwAP 
* READ ERROR 
SWSKO STX SwSK QAj _BR 



S^LP 



3MEU LB.X. S-w.5A0Aj_.LPA.__li.MlJL. XMA__RA£R # ..2j .BRR...SWAP. 



n 



o 












SWSKOA IRQ 

* PAGES NOT ALL IN 

SWSK2 MIN SWAP; MJN 
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SwA.Pi. 3RR- §'WAP 



* PAGES ALL IN. PUT REAL REL* IN A>b>X 

$SWIN14 Zk 8 £_ 

SWIM ZRP; CLA; 5TA SWlNlij LDX KMiQD 

SWIN8 LDA 3RTE,2} Sk'E. ZEROj SRU SWIN2; LDA K40f STA SRTE#2 

SwIN3 BR* SwlN8; BRM PTRL; BRR S*lN 



♦N6N-ZER8 PSEUD6-KEL ENTRY 

* THIS SECTION HAS REDUNDANT CHECKING WHICH SHOULD BE REMOVED 

» when swapper and pager are debugged* 

S w I N2 ST >. S W I X ; M I N S W I N 14 

5KE «NC?CMj MIN SfchCM; SKG «NCMEM-lj ADD SWSMT 
ADw SwPMT; SKN _SWNCMj b RU SWlNfe; STA S*IN7 

DIR; BRM w; EIR; LDA S'*IN7 

SWIN6 CAXj LDA o#2 

ET? «37B+177a5; SKA . XI J .. MRG_ K.4lQ|_. S.KN....SWNQM 



T3 bLOCK 



Sv*I i-J** 



# N3T 
SWIN4 



LDr> 5 773':).;. SKM. 
b R U S to I N r> 

TS BLOCK 



.K2iiS?; ..aR.M Ma.NCR; SKA. K40;- BRM MdNCR 



iKR GbNC?* 



■NGp 



SWIN13 LDi.:: ; =7bB5; SKM K4t>^; a*U * + 3; ^RQ MQ (STATE <♦ 8R 6)j BRJ SWlNb 

LDB »77B5j SKM K2Bbj BRU SwlN9 (NOT ?) 

SWIN5 ET^ <77 ; LDX S*IX; STA_ SRTE*£j_ &R U SwI N3 
SWIN9 ST*~5¥rNlo; SKM '»12B5;"BRM M&NCRj LDx Q#2 

SWIN12 LDA o # 2; SkM =1255; 3RU SwINUj CAX; B«U SMN12 

SWIN11 ET* *37B+77b5; LDb Xl; SkB S*I;*lQ; mrq «40 

B R U S w I N 1 3 

SWIN13 i^ ;j 

SWIN7 ZRft 



M 



# READ PAGES FOk RUNNING PORK* HANG UNTIL ALL PAGES ARE IN. 

* INPUT: PSEUDO-REL IN A#B'X 



* jOi N9« IN SwjOtf 

* RETURNS; MO SKlPsREAD ERROR. AsERROR count. 

* SKlPsP AGES I .Mt KEAL_REL._I-N A#fe/X 



SWAPR ZRdi STA SfcRl; LDA X4; STA SwPb 

IDA CRAJ&33; STA SaRAjj CLA; STA RAJ8B3; IDA SWRl 

j____5>'AP; r,Rg SWAPRgj fcRg §RJN 
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SRIN 



LDA* S*RAj; S<E SwRAI; QRu **2 

SKN RAER3; bRU SwAPRg; BRM S*IN 
MJN SwAPRj BRR SWAPR 



SWAPR2 BRh S'aREU; LDA «M_; XMA RAE.R3; bRR SwAPR (READ ERR8R) 



ANN 



E u U 1 



IF -ANN 

* RETURN REL» IF PAGES ARE If\|t D9ES NdT START RAD# 

* INPU T? FSEUD3-RPL IN A, u, X 

* sjt'i N3» IN S*j6b 

* RETURNS: Ne Sk1P*PAGES -nOT IN* A»C$yNT 9F MISSING PAGES. 
_* SKlPsPAGE S JN_# REAL RE L« In A jBj X 



$SWAPL 2R?:; STA SwRl; STb SwR2; STX S*R3; BRM UPRLi LDA KM*; STA SLPGC 

LDX Swj0l; LDA PhTP/2; ADD s?B7*NCMEM; STA SWPMTI 

LDX <M1UD 

SLLP2 STx 3w!x; LDA GRTE/ 2;" 5k£ ZERB; BRU * + 2; BRU SLLP 

S<G bNC-ICM-1; LRU SlSYS; CAXj LDA* SWPMTI 

SLLP3 __I„..__.2Zkb;_ b<M.___i2_^i pRv SLLP.^; . Ca_x; .LDA o>2; BRU SLLP3 

SLLP4 ETP «77t>5> 

LR5H 15; CAX; lDA Sa'LS; LSH 0/2; Ska X4 

MINSLP3C; LDx SaU 



iLLP 



bRX 5LLP 



3KN SLPGCj bRU SLRET 



* PAGES ARE IN 

. L DA SWR l; LDi b*R2; LDX S*'R3; ^RM SWAPR; BRR SWAPL 

MJN Sw-APu; BRR SaAPL 
SLRET MIN 5LP3C; LDA SLPGC; bRR SwaPl 
SLSYS ADD -SMT, CAa; LDA 0#2; bR>j SLLP3 



ENDF 



* CALLED *.HEN ALL PAGES ARE KNOWN T& oE IN CORE AND 

* NQ BRING IS NEEDED. 

» INPUT; PSEUDa^REL IN A/y/X... 

* J & Ji N 8 # I N S *i J ff B 

* RETURNS? N8 S«IP*READ ERRaR* SKlP.REAL PEL JN A#B/X 
SwAPI IRQi STA SviHXi STb SWR2; STX S.*R3; BRM UPRL 






jr*% 



O 






LDX Swjdb; LDA PMTP#2; ADD ■•NGMEM; STA SWPMT 

CNA; ADO *SMT; STA SwSMTj oRM 3WIN 
BRP S/^API 
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* SWAPPER VARIABLES 
S.^'J&B ZR9 Q 



SWRAJ ZRS 
SWPMT 2RS 
SWPMT I ZRf; 

ZRP" 



SWShT 
SWRAB 
SWRAI 



SWT x 

sv,pa 

SRT 



ZR^ 



J0^ NO. 
RAJ'Jb POINTER 

PMT POINTE**NCMEM 
g PMT POINTER INDEXED 
SMT-PMT 

o wAjeti L?n mask 

INITIAL VALUE GF RAJUB 

U TE^-P STORE FftR S^T Ix 

D h.I'.iH PRIORITY READ SwITCH* V4 FBR HIGH PRIOR, READ» 

if. STORAGE FQR UpRi 



SRT^^E bSS 
SRTE bSS 
SWR1 /Rv 

-■-'■""" Z K r " 



O A :"< C 

S W R 3 
SMC* 



SWUS 
SLPGC 



END 5F SWT 

_o ..._R_L.i_xi > 'p_yi 

KLc- INPUT 

o RL5 Input 

_ 1_ b'AlTCH* -IsNCMEMt Qs^qj MCMEM 
DATA"64>J7777"b "lN CQRE STATE MASk. STATES 2*<*i5#6>8>9 IN CSRE. 
PAT A -J f-A'jt CtiUNT F-1R S^APL 



DAT A 



RAjQB ZR^ 
RAjQEl DATA m] 
J9b2 ZR? 



RAJ9B3 ZR: 

RAj9B^ ZR r 
RAJ3B5 ZR- 



:,TI j8B 



CALLS 



RAj9b6 ZRT: D 
RAjdB7 ZR* 'o 

RAj3bE bSS (j 
KAfcKOk J^r~3 

RAER DATA -1 
RAER1 DATA .j 

RAF.R2 DATA -Y 
RAFR3 DATA -j 
RAER4 DATA * 1 



7<x[^XPJ^ T eK , cqrrcspnCTKg table." 





RAER5 DATA -i 
RAER6 DATA -1 
RAER7 DATA -1 

* 

* UNPACK RELABELLING REGISTERS 


* INPUTS RELABELING IN A,»,x 

* 8UTP0T: ALL REGISTERS CLOBBERED 
UPRL LhV; STb 3»'T3j LRSH )R; STA SRT 


CLA; LCY 6; STA SRT+1; CLAj lCY 6; STA SRT+2 

CLA; LCY 6; STA SRT+3; LPA SwT i; IRSH 18; STA SRT+4 

CLA; LCY 6; STA SRT + F.: CLAi I CY A; STA SRT** 


SWT3 


CLA; LCY 6; STA SRT+7; CXA; RSH 6; ETR K77; STA SRT+8 
Ci,A; lcy 6; STA SRT+9; BRR UPRL 

i!.Rf D 


« PAD 
PTRL 


i RELABELING IN 3RT INTO A#BjX 

imi LDA SRT + 3; LRSH *>; LDA SRT+PJ LRSH * 


LDA SRT+i; LKSH 6; LDA 3RT# LRSH 6; STB SWRLl 
LDA SRT+^; LRbH 6; LDA SRT+8j LRSH 18; CBX 
LUA 3RT+'/; LRSH 6; LDA SRT + 61 LRSH 6 


SWRU1 


LDA SRT+b; LRSh 6; LDA 3KT+4j LRSH 6 
LDA SWRL1; bRR PTRL 
/ h - 


* 

* SET UP REAL REL*uE.LlMGt KEEPS PAGc 6 RELABELLING FROM RRL3t 

* INPUT; REAL RELABELING IN A,a*X 
LABEL ZRf:; STA RRL1; STb RRl2; CXA 

ETR <77; X'iA RKL3; ETR »7700b; ADM RRL3 


CHREL 


LRRl; POT RRL1; IR*?, ; P8T KRL2* IRR3J P3T RRL3j 3RR LABEL 
Z«-^; LDA Rul#2; LDw RL2*£; LDX JOB; STX SWjQB 


RRL1 


LDX RL"j#2; BRR CHREL 
ZR8 


RRL2 

RRL3 
RLTS 


ZR'J CURRENT CONTENTS OF RR3 
ZRS TS BLOCK RELABELLING FDR RUNNING F8RK 
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^Bkt^' 



■ ■ 



1*1 



o 



f*1 



f 



RLPACT DATA 600b P&Q TABLE REAL RELABELLING " 
RLDSC DATA 1000Q DISC REAL RELABELLING 

RUB OAl^llOm W.....BUFFER DRIVERS REAL RELABELLING 

$RLTYM DATA 0600B+TYMPAQE TYMNET LABELLING 

# 

» 

* ROUTINES TO RELABEL EXTRA MONITOR PAGES. 
* 

■ C TA qlE. RELABELING 



MPPACT ZHd'i LDA RLPACT; MRO RUTS; "STA RRL3 

LRR3; PaT RRL3i BRR MPPACT 



* DISC RLIA3ELI.JG 

MPDSC ZMFi LDA RLDSCi MRj RLTSj STa RRL3 
LRRJi PQT RRL3j 6RR MP DS C ^ __ 



# SETUP "TYMNET LAbELLl'.NG 

$MPTYM 0; UDA RLTYM; /MA *RL3; LRR3; POT RRL3; 8RR MPTYM 



* w BUFFER ROUTINE RELABELING 
MPwC ZRe; LDA R L *U MR3 RLT3; STA R^L3 
LRR3; P'JT KRL3; oR« MP*B 



# CHANGE RRL3 RELABELING 

$CHR3 Z_R0i_L.RR3;.. P^T RRL3; Q_RR C.HR3 



CLf?C< R8UTINES AND TABLES 



SDNTERM DATA 
TIME ZR r ' 
TTIME ZKO 



SH^RT 
L3NG 



D3 N8T TERMINATE FORK IF 



TlMEl £Rf 
UN6SV ZRR U 

$CL8CK3 DA 1A -1 

* CLOCK iURRUPT -ifiUflNt 

CLINT 

$CLINT1 M I i v REAL -BETIMES 6RU CLlNTT (SEE TVPMS) 



TIME AT START 6F FSRK 
USER NUMBER SAVE CELL 
SKR CELL F6R INTERRUPT 74 

AVG* TIME* *Q47 MS 



CLINT4 MJN* Tj'ioi SkN CLlNTi MI* STlME 

UPT4 
CLINTC t:>RM MgNCR 
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CLINT2 SKR TflMt;'"N9P* SKR TIMEi BRI CIINTV SKN TTIME 

SK^ ACTR; C RU CL6UT; b«I O.INT 
CLft UT bSS 

22*0QB 

DDiFP 

gMTF 
NOP 
ELSE. 
.xM_..J&^i._.3TA gMTja.Lj; 
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CKQl 



LPT 

I NO 



EQi 
IF 



IKR 



X'"A JQB 



>F 



SkN CLINT; BRU CKQl 

_feRI_.GLl.Nl_ _ _ _ __ ...-_ _ 

STA SA; lQA* CLINT; ETR #2007777713; SKE -400008 
bRw SK; LD* =100^ STA COUNT; ST'X SX 

Ji_______/__j__'__... 9*lXj L_Q_x 0. ._.. ..__ _ ._... 



6KX 

9< LD 

CLINTT i^ 



LOA 0,6; SKA s^QOOuB; bRU INQ; bRU 9KX 
SKA X2; ADD SXj CAx; SKR CeUNTj BRU LPT 

bRl »» + !; TRAP 54 _____ __ __. ._ ___ _ __ 

L D X 3 x 

A SA; L ',U CLINT 

*... .____EF_..IF T.YnNEL.t)oTpgT _RlNu MBO ) IS EMPTYING. 



Mir, CLINT*, STA SA 

LRR3; F9T RLTYM; LOA* TR8S'w; LRR3; PST RRL3 

SK_E._TfREf._Cy bRu CUNTJ _ 

LDA <^l; STA TKtJSw; LOA CLINTU; STA CLINT1; LDA SAj BRL CLINT 1 

CLINTU MIN REAL; uPA SA; Q RU CLlNM 

$CLINTV bRu CL INTT 

CLINT* 






SA 



ZRe 



SB 


IRZ 





SX 
C8JNT 


7 Hi ''' 






IF DDIFP 

USER MODL TRANSITION TRAP ROUTINE 

USED T8 UETECT APPR8PRIATE T I ME F0R 



DISMISSAL FOR QUANTUM 8VERFL8I* 8R T9 
REPORT FLQATING 6VERFL9W INTERRUPTS 
TB A USER PR8GRAM, 






^i^Jr 



o 



TRAPT ZRB 






SfA 

ST3 


SSOI 
SS02 


STX 

LPA 
STA 


SSQ3 
TRAPT 




^ \C iv 

BR J 

CQPY 


SFPOVI 

TRAPT 2 

A 


STA 

LDA 
LDx 


SFP3VI 
K20 4 
PACPTR 


bH- 
TRAPTl Sk" 

BRU 


K I I R 




S K N 

BRU 
E6M 


UMTF 

pa^x 

2240013 



TRAPta 



S K .\ 



SKN< 

BRu 
BRu 



COPY 
STA 

bRL 



SSFP&VJ 

$UMTF 


IRQ 
ELSE 


# USER 
TRAPT 


"'ui C E 
ZRe; 


TRAPTl 


STA 
LDA 
LDA 



PQPx 
vMTF 
T RAP Tl 



/dnterh; 

PACGiE 



A 

UMTF 
liiA PTi 
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FLOATING "evERFiew FLAG (-1 FBR ©F PENDING) 
QUANTUM evERFLOW FLAG { * I F9R PENDING) 



TRANSIT I 9N TRAP 
_SKN 0;,T_ER^; b«U* TRAPT" 

3S01; STo SS02T~STX __ SSQ~3" 

UMTjOB; $<E J0t»; B^U WRJQB 



WRJ8B LDA 
$UMTJ9& iRu 

ENDF 



TRAPT; 

« « U 1 i 



STA 



Q* LDr3 

t^apt 



PACQ4; B«U QQEDMS 



9 



» FAST tLEC< (POWER OFF INTERRUPT) 
PRFI ZHOi ST A PO'FFA; STB P9FFI 
__.kP.X... 5 100075b; t*RM ST9PJ* 



,, STX PQFFXI MIN PWFU 
BR J NtiT ISSUED 
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# P8WER aN INTEHRPUT 



PWNI 



Zfi 



Cj 



; bru* 

ZRO 



PPFFA 

P6FFB iW: 
P9FFX ZRf; 



» BRS'S FS R T I.M I ;J V . 



* B«S tt C , READ COMPETE Tlr-E. 

* B R S 4 P 



RREAL IDA uzbNfc'; ETR K37; LDb K4Q; Sk8 UZ$N£; SKN DSTSw; SUB 6NE 

ADD DMIN; SkQ TMKlj 3RD *+2; ADD TM|<2; CAB; LDA REAL; LDx YEAR 

bKUXPOP 



$3RS135 E:.vu 



.A /' 



B135A 



B135B 



LD;X 

LDA 
RE^Cv/f 

LDA -' 

o K. t.' ; 
LDA 

LDA" 

LDx 



AUL 

LDA 
dRu 



* INTERRUPT F8Rk AFTER TIME IN B IS FLAPSED 

PUuPT* . ... . L.8UK. FOR ftLD-BBS 13b ENTRIES 8N PU 

0#2; Cxa; DKl. sPUBPTR; BRU **2; tiRU B13S6 

1/?; SkE bl35C; dRU D135A (N9T A RUTIM ENTRY); 

Ei^Tn'Y IF Pu PACPTR SAME AS CURRENT PR IF SAME USER 

3>?.l E'wR U'TTY; LRSH 12; E8R PACPTR 

PL^SK (CHECK UTTY; SK3 PlMSK (CK PACPTR); BRU **2 ; BRU B13b 
^U:EADj_ STA_1_ #c CANCEL Pu ENTRY AND WAIT UNTIL IT 
=300D; 6RU bSlo IS CLEARED FRPM THE PU CHAIN 
PACPTR; LDA KlbSj MRG PlM/2; STA PJM,2 

SSpS;__.1UL -1737024b C8<YERT MJLLSECQNDS T0 CL9CK TICKS 
AX#o; LDA PACPTR; LSH 12; MRG UTTY; COPY XB#AX 



REAL; CbPY 
b!35C; BRM EPU 
P8PX 



B135C 7 PuTI 



$BRS45 LDA a3Q0U SIMULATE'. QUANTUM OVERFLOW 

$BRS81 MJM j; S^G «20G0; LDA *200D ^INJMUM DISMISS 9F 2 SEC3NDS 
bSIB MuL *1727024B; ADD REAL; LDX JdB; STA ACPATA#2 
CXA; ADD aslA ; CAqj LDX «QTI_i dRU P6PDKS 



^j^iir 






M^*% 



o 



o 






B51A 



6 ACDATA 
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* 8RS 2't Dd N.OT TERMINATE F9RK 



NTERM CLA; STA Q'.TEKM; B^U P8PX 

# 

* BRS S3 ALLS" FORK T6 TERMINATE 



ALTERM UDA <Mi ; STA D-TERK; s<N TIMfc; BRU P©PX; B^U PACigE 
* 



* SYSTEM START 

5ET3ET Far* 0, T5^; L*R3; PftT *RSR; BHu SETSA 



ANN 



QgEuE R9UTINE; 

t vat v 1 



IF ANN 

* CHECK Nyr-iyER wT ITEMS du 3UFuE AGaI^ST COUNTER 
_*_JTN PLJ T ;__* « -.y u E J t: ( Q I y -x ) 
QCK ZHdi STX uCKo; CLA; STA GCX2 

QCK4 SKM PNEXT/t;; 8KU QC«3; MIN QCK^; IDX PN£xT#2; &RU QCK4 
QCK3 _ U 0_A__ -*Z<o ; .J, D A_ p N X_3 # 2 * S K E g C k 2_; &R M * & N C R ; 6 R R QCK 



GCK2 


ZK* 


COUNTED 


CvCK5 


ZR8 


,,UEUE 


# 







# INPUT: /.sPACPTKt X = uUEuE 

* output: a=pacpt^ 

t» p U l 4rii_?_SlA vjPjTjji STa ^PuTb; C*Ai c oUb «PNEXT; CAx 

L"»R V :;C<; LPA qPUH; UDX wPUTs 

DIR; L?GU 36t5iL©QX# L9QG 37B*QPUT; EIR 

_______ If.; ^ c^c ? ;_MlN _3# 2 

"CQPY A~mcAi Xb; ' X M A PNExT*2; SKE~ZER6; bRM M8NCR J ~ C6PY &X# XA 

LD6 \rei STA 1^2 
CbX; STA P!mE'xT#2 



LUA jPUTb; SUB »PNEXT; CAXi 6RM QCK; LDA qPUHj 6RR QPUT 
QPUT4 ZRS PACPTR 
QPUTb Z.RO ,>UEUE 



* INPUT: A.PNEXT 3F F8RK TO GET# B*uUEUE (QI8G)# X*PREVI8US PACPTR {Gl8Q> 
03ET ZR6; STA QGETgl STa QGET3; Six QGET^j CBX; BRM QCK 
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QGET7 

QGET8 



LDB ^GET3; LDX QGET4 

LDX PNEXT/£; DIR; LOGG 428#L6Gxj EIR 
_STX J GET 8 

CLA7" XMA"pn"ExT^H; xMA QGET2; SkE QGET2; BRM M8NCR 
LDX :jGET4; XXBi SkR PNX3# 2j bRg *+2; BRM M8NCR; XX& 
PIRi L5GG _AQ.p/.L&Gj;}.j. U.Q.Q.. * 1 8./ Q3ET ; E I R 



XMA PNEXT*?; STA Q&ET7J IDA PNExT#2 

XXp; S*G ZtRB; bRM G3ET5 

ST X _jGEU; SUB sPNUT; SKE QGET6J BRM K8NCR 
ST3 PNxTPi/2i bRM g GET5 
GGET5 ZR?; LDX J0ET3; uRM jCK; BRR GwjET 



QGETg Z R : 

QGET3 ZR"e" 
QGET4 ZR8 

QGET6 ZR? 

ZRe 

ZRP 
ENDF 



J.NPUT _AsPNEXT 
INPuT LsQUEuE (QI8Q) 

Input x*prevIqus paCptr (QI8G) 

s»yL_U.E_ 
"PEvTO'oS PNExt" 

PACPTR 



IF -ANN 



* INPUT; A.PACPTrf. XsQUEUE* 

* 8UTPUTJ A = PACPTr< 

GPUT IR(: _ 

QPUT3 DIR; LP3G 36D/L8GX; L8GG 37S*QPUT; EIR 

LOii ?jE; MIN 3*2; XX A 

STa PNE.X_L»c!;_.XxA; LPB..1/2.J. STA.....U2 __ : 



Cbx; STA PuExT*2; oRR u-PUT 

ENDF 



Q-jE 



* PUT J0b AT T9P UF 

# INPUT; AaPACPTK 

QTPUT ZR B; pJR; L OCiG 45b*GTPUTj ElR 

CAX; LDA u w E; STA PNEXT/2; STX QQE ; MJN qqECj BRR QTpgT 

# 

IF *ANiM 






O 



o 



o 



* INPUT; A.PNEXT &F F3RK T6 GET* 3*qUEUE (Qiao* X*PREVI8U$ PACPTR (QlBQ) 
GQET ZRfJ; XX3; SKR PNX3*2j BRU * + 3; BRM M0NCRj XXB 
DIP; LOQo ^Ob/lBGB; L9GG MB,G3ET; EIR 
ST A PNEXT/2; xXb; SKG ZERO; BRR QGET; STB PNXTP1#2; BRR QGET 

ENDF 
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* INPUT; A.ME/; ACT. C8N0. X»PACPTR* 

* GSCH CHANCES ACTIVATI8.N C8NDITI8N AND TAKES PAC ENTRY 8FF 

* THE QUEUES* 



"QTOT 



STA 

LP A 
XMA 

ERR 
IDA 
SK3 



QSCHl; STx QSCh4 

pCTI; STA Q5CHt> ; LDA gSCh! 

PTEST^; E6R *70Q000b; SKA 8 77C00QQB; BRU #+2 
SSCH ((iLD ACT. C8ND# WAS 7f F8RK N8T 8N QUEUESt ) 
PNE< T,,r; STA U3CH1J IDA U -SCH6/ BRU QSCH5 
ZER9; bRg ,;SCH3 



LOA 

sua 



«QD; At-M QSCH6i LDA QSCH6; SKG *GQE; BRU QSCH5; BRM M8NCR 
bPNEaT; CAu 

CAX; IDA PNEXT^2; SkE _ tfSCH**; BRU QSCH2 

LDA JSCH1; BRM QGET; L^X GSCH4; BRR QSCH 

ZR3 G ACT# C^ND./ PNEX'T 



PACPTR 



QSCH2 

QSCH5 
QSCH3 

QSCH1 
«SCH<f 
QSCH6 

_# __ __ __ 

* C8RE uSE"^ETr« fur COMRgTE jflu» 

* NPC INPUT* A a NEW PAGE C8UNT# X * REMAINING t^NG TIME QUANTUM- 
» SJb lNRu T, A s REMAlNlNu TIM£ QUANTUM. OUTPUT, A ■ PAGE#TICKS« 

# call npc every time number of pages change* 

# CALL Sjt AFTER EVERY COMPUTE u8B T8 RESET METER AND GET TQTALt 
SNPC IRd j XMA NPCA; STx T.2; SUi5...NP.CA; Miik..T2i... LS_K 23 



ZRS J 
2R0 C 



SJB 



ADM NPCB 

IF PTICKB 
__LDA T_2; _GKO T.^ u ; dRU #+2; BRM MQNCR; STA TRQ 
ENDF 

ERR NPC 

ZRB; CQPY AX* A; BRM NPC 

CLA; XMA NPCB; CNA; UDX JOB; AQM PTCKS#2; ADM SPT 
IF PTICKS 

LDB XX; STb TRQ 



? 

1 



ENDF 

BRR SJd 
IF PTlCKb 
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TRQ 
NPCA 



DATA 
ENDF 
2R9 



S77777776 



NPCB 
* * 

» PUT 
RCJ 



2 Re 

_Ce_MPuTT^ jyb 9N *3E AND RELEASE COMPUTE j68 PAGES. 
2RF; LDA s,,QC; LDb »3QCQ; CBx; dRM QGET 
LDA PACQ^Pi LDX »Q.^E; bRM QPoT 

__Ri-3i LRR3i„.P_0T.__RRl l: 3j_..UDa..UQj _STA._RR|_3 

CbA; ts K M Sjb 

PTA D #2; LRSH ig; ETR K77; STA J©B 

^i_'3RM_HELP3JUCLAj. ST A .PACSMP; STA RAjQ.82 



_LDA_CMRRL3; X_MA 

LR^3"rp~'lT'"r<KL3i' 

LDX PAC^NP; LDA 

C3PY AxiXb; LDA 



IDA 9NE; STA CMPST; b«R RCj 



INTERRUPT L^SIC 



* IIR 

* I MPi 



T 



I I R 



IIR3 
IIRS 



IIR1 

TTRF 

IIR4 



■MA 

As 

ZRS; 
STA 

CLEa 

S T A 

LDA 

Cax; 

LDA 

LDA 
LDX 
LK'1 

ZRfc 
ZRO 



<ES 

INI 

Sk 

I IR 

R; 
IIR 

pte 

BR 
PPT 

thr 
IIR . 
«UTI; 

0* H S,' 1 I # 



a; 
1; 

LD 

'♦; 
ST 

M 
! t 

4 ;"• 



. C T • C b 
ijfrSK* 

PIN#2; 
STx I 

A I I R 1 

LDX I 

t B i SK 

DFK; L 

2; Ska 

; bRM 

u D X i 

LDA K 

LDX I 
NJ_1__HA 

ACPfri " 

CT. CO 



NDt A PRQUR 
X.*PAC.PTR» 
lsku » + 2; B'<R IIR 
1R21 " ' "' 



• INT* AND PUTS F©RK 6N QTI 



.. U3R PIM/2; STA PIM>2 
i NOD 24; CxA| SUB ■50.000.QB-2I C.NA 
1*2; LDA PIM/2; SKA XI; BRR IIR ( N6N*TER!% ) 
E «70O0C4b; SRU IIR3; LDA PPTR,2; RSH 12 

Rp II ^5 _____ 



t»Ru IIR5; RSH 12; 
RM SCFK 



RU IIR5 

PLMSk; bRU **2; 
RFK; LDA *DFKi o 

iMj_am-QS£h 

2b6; SKA IIR1; LDX »QTI; LDA I I R2 
I»2; MIN IIR; BRR IIR 

SK 



Nrv 
U • 



CAX 



# IIR F6R RUNNING F£RkS 
$RIIR IRd? SKA PIM_#2j oRU 



j_±2*J___R RIIRj STA_.LI_RlJ._STX I I.R2.J... E3R e._M#__. 



^I^jjii' 



o 



— ^ — 









STA PIM,2; CLEAR; LDA I IRli NdD 24; CXA; ADD TW9; 
bRU *+£; 6KM MQNCR; LDB fcj C&PY AXiBA; ETR AQMSKj 

COPY XA/Abi IDX Q>6; STB 0#6j ETR ADMSK 
BRU P9PX 



LDa 



AD! 



CNA; SKE FIVE 
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_2G0bi 6; 
X4; STA Q; 



* M3NIT"eR CRASH' 
M9NCR 



CRA1 



ST9P 






2000rjci; ^IN MCrUj CKF; Ett^ 2Q0Q4B (DIP) 

E9D 1230Gb; PIN T3 

EOD 0; EOM 

S TA MCRA; STB MCRb; STX MCRXj __MIN ..MCR.CL... 

LDA v l"cRC; SKt ONE; bRU CR'AH 

IDA ^ ; 5TA MCtfO 

COPY u?J Eh pAG CS D-3 T0_ PAGES 1 :ii.l5;_16/ 17... AND . TS T9 PAGE 14 

LDA s 130Gb; LDb ^RLl 

ETR *3/!3c; STA STtfP 

SKC *14a£; dRU_ * + 3;_LDA KLTSj pRu *+2_i LS.H 6|..ETR K37 

AQM ST9P; uRR3; P9T ST9P 

SKo ZER9; W ,RU * + 5; LDX KM433; LDA 0#2i STA 340008/2; BRX *-2 

LP A 5T 5P; «DD_rlOO« SKG *l/77i bRU CRA1 



CRA2 LDX »lG0u7/b; l-Rm STtfP. 



ZRO; STx o#2; bRU 0/ £. 



C^ASh 

CRA5 



$MCRA 
$MCRE 
$MCRX 



MCRQ 
MCRI 
MCRC 



b R M 
ZR9- 

/Rf: 



i9ncr 


J 

J 



ZRe 

bSS 



'j 



_j 

:.3;H. 



1 1^ ENABLED 



$QTIG>8 
*Q25 DATA, 25Pi + ^TlGQ 
$Q26 D A T A _2 6 b jHi 1 I G 8 
ENDPAC bSS 
FORGET 

End 



I^i^uSJDK^REXABlLLl Ma 



BRS 44 FLAG 
XFK FLAu. 



t 
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o 



O 









BUG 



IDt\T 
LISTM 

t \J <J 



CHECK MEMORY TRAP BUG 



* ENT^Y POINTS 



ENTRY TFC02 



ENTRY 

entry 

ENTRY 
ENTRY 



EuTky 
* ENTRIES ^ : <Q- Hr 
EnTRY 



# »SBRMii ' SiiR'R' 



CPuPMHP 

T * T 1, Tc ! # T3i U, ESX# SSoi/ SSQ2, SS03* BST, EP9PX 

MSFT# TRAPS 

TKAPI^JRApM^TRAPR 

RFK,fFr*FKSTw*HFK^P*/SCFKiDFK 

fi^ZX/.Pi^/.^.LM<#^M9P_ _ _ _.. 



6/ £3/66. 



* SbKM T!N£s4 3#7 l -> gs 
SBRK PbPO 



■.-> / wDO 



$SBRME 3T> SS03; t Ax* Q; XX.A; ETR ADMSk 

MRO =40040G00Bi aMA Q; E&R s^QOOOBi STA* 

CX A./ . .. L_P.A S.SC3; jjRR 0___. 



SBRR PQP 

$SRb 
# 

* 'bRS' 9/£7/6b 



6/31/72 15J02 



PAGE 1 



,v / A D D 

IX-^'-S-i- UU**.Qf E-A* 0/6; STX. Ii LTX .SS03j. .ERR* T (TIME 28 US), 



* THIS ROUTINE DISPATCHES C1N TH& ADDRESS 8F A »BRS» 
^RO;* ^NIVtRGAL TEnPtfRARY STORAGE 

ZRe 



T 

U 



T3 



BSX 



ZR6;» L3R^ EXIT 



SS01 
SSQe? 
SoQj 
* 

$BS 

BSl 
BSFT 



ZR6;» SAVE (A) 

ZRSJ* SAVE (S) 
ZH°i» SAVE, (a) 

PtJPD b73B5 

STA SSjl; STB SS02> STX SSQ3j LAX* 
COPY xA,p; S<A »37600B; bRg BSFT 
LOA -3S7/2; SKG PRILEV; BRU BS3; TRAP l 
i'I?..AP:jSKj._A<G..j!J3STy-0SJi_. l iRU B.SU„TRAP. 2. 



PAGE 



TA 



>1 
i3 



status required 

no status 

Subsystem 

system 

EXEC 



PR I LEV 
TYPES: 



"W 



IS THE 
P C£?Pt 
_0 

1 

2 



FORK LEVEL* PRlLcV IS HIGH "T8R HIGH i" STATUS ' FORKS." 



__ 

4 

_ 6_ 

7 

10 

11 

I H 9 ( ) ; 

1 :<PT CO; 
7 c^Sg# i 



TYPE 

TRAP 

M6MT0R WITH X«PACPTR 
EXEC 

RU P jRo ? S 

M8,\iTbR WITH 
MU-NlTeR 

Mu-n&R 

M0\iIT9~' 

monitor 



DISC 



w I T H 
WITH 

W I T H 
WITH 



MAP: 

MAP '* 

X*SS03 

MAP DISC AND X*SS03 

MAP w AND X?SS03 



ne 

c I 



MONITOR wJT^ MAP TTY BUFFERS AND X 
7 BRSl.3; 7 CCL3/3; 1 PMTI 
1 FrfSTAT; 2 21; 6 BRS7 
(_Ji I FKSTj 1 PPANj HB fc>RSll 
(12); lib BRS13; 1 IB BRSl4j 2 
>; 7 3RS17; 2 3l 2 4 
(£[')!_ .l..^F"JAj l.>.TER_M*3_i__.l AUTERM/3 
■^S24 (,*jj 4 oRABr32#3; 1 SM&UT 



SSQ3 



3RS1 
(1 



o 



ST 
S T 3 8 1 3 



1 
IF 

1 

t L *"*£» 

(27); 

ENPF 



J £71 



O ^ 



'1 H ^ 



.1. S_TSTQPi3._l2.81. 
26) 



o 



*v g^\ f-y 



116 3RS29; 4 GIVEB*3; 1 F«WT q PAGE 

$ 6 CLM2/3 (3a); 3 GF.TSTR; 3 9uTMS<3; 3 QUTSTR 

. a.^uTNUM (36); 2 20; 3 GfcTNUMj i RCPARw 

lib iRB4u (40); 7 L8CbLK#2; 1 RREAL; 1 RDRL 
1 GTRL (44); 6 bRS45; 1 NR8UT#3; 1 SR6UT 

2 6 (>*>; 1 SRIR; 1 FFlX; 1 FFUT 

2 26+5000B (52); 2 27+bQOOo; 4 GRABR1/3; 6 MAYDMS 
1 PMTP/3; i M X 3A/3; 2 2; 2 5 

£_...? AIlm) /.....:,.;.. 2__. 1.6;. ... 2 17... __ __ 

2 13 (64); £ 13; 7 BRS66#3; 2 22 

• 2 14 (63); 2 1-3; 1 FRpMT; 1 SKXEC 

^ 6_j:.xDMS/_;i (.72);. .1 RQ.CLEC;.G 0; .6.. XP..QP . . ._ - 

:'J (76); 7 -RS77; 1 SAlR; 

H 1 ;'oRt> (o0); 6 b^SM; 1 SKFNE; 1 SkFZE 

O ..i__^^kZ£....(..?Al;..._.U6 yRS.35.;_...Uci jR.S.86;....6_.6.RS8..7.*.l .... ........... 

1 RTF/ (68); 1 RESmT; 1 CFR; 2 2S+1000B 

• 7 »RS9£ (32); 1 R3h£T,3; 1 ClF^/2; 2 7#3 

2_i_<_l 6 >' ^ RESdRS; 5 lNCBWSj -j REDBRS 

1 A^T (twO); 1 UAST; 5 TREAD, :j TWRT 
1 -hT (104); 5 CTRL; 5 P*0i 1 3ETPAR 

k TSTD2 (l v 8); 1 DhS; 5 TSTROYl 1 BR$R£T # 3 

6 i.RGn"2/3 (112); 6 BRSH3; 6 ;iRSH4j 1 EXRETE#3 

• 1 RURL (116); i SuRL; 1 IDFLE; 1 STFU 

_ LA^TE>_3 (120); 1 DPMTE; 4 ARDD#.2j .4. AWDD#3 .... 

4 akj/.p (ot + l*12't); 4 AvsP#3; 6 P9PXQ; 1 PE8RS*2 

• 7 W0±\'-, 3 U.E + b#l28); 11B BRSl23*3; 1 BPTEST; 1 CRASH,3 

lit: .^RS132 (132); 0; 1 CRSa; i__BRSl.35 _ _.... 

6 5£TS**3 (bE: + 13#1^6); 11B BRS137; 6 BRSl38#2; 11B BRS139 
2 2y+lG0uD (dE+17/14G); 2 11*3; 2 10+3CQ0R; 1 BMTST 
± Ea^GEL/3 (144)^ 4 E&bPLTj3j_l Q$>2j 7 BRS147 

I FFNAF. (148); 1 FFIxE; 1 F'flTLj 7 BRS151 

• 11B dR$U>2# 6 gRSl53j 6 BR3154; llfc 8RS155 

llA-i"-i^6-±\5 ( O.J-_7 oR_ s l57*2_i L l._bS^58;. . 11B BRS159*3 __ 

II r jRSloj; 1U. .,RC161; 1 1 Li nR0l62; 1 IB BRS163#3 
% 11B 3R0I64; 0; lib BRS166/3; 6 bRSl67 

Ll^JJKSl_Mi_.ll: 11 ^vK5if.5i 2_1£+3000B (170); 2 13+3000B (171) 

HE ^RS172; 2 23+4UG0B; 7 bR$l/4j 1 BRS175 

• 2 30+100015 (176); lid BRS177/2; 11B BRS178 



H3 EQU * 

fBSTU BR M TRAP 

££3 UR..KS7; .SI A BSXJ ICY 9; CBX; E.XU * + l*2 

BKM TRAP; fRU eS2; bRU BS4j bRw BS6; BRU BSIOj BRU BS12 

BRD SSl^; wRJ bS16; BRU PS20b; BRU BS22 



PAGE 



H4 



bS2 LDA SSC1; LDB SS02; LDX PACPTR* BRU* BSx 
$BS4 LDA o; STA SBRSRT; bRU UbRSET 
.__L&* .= U,>RSlT; xMA 0; STA SQRSRT 



bS6 



BS14 

BS1C 
BS12 



LDA SSC1; LDb SS02; LDX SS03j oRU* BSx 
BR?' MPDSC; bRU BS2 
BR^ MP. 3; ,.rj C S2 



t ; Sl6 dR m MPPSC; bRU BS14 
DSaCb D^i MFAtj; L R'J [SU 



Bsea bRM mpt yh ; v BRu : v Bs;i;^ 



±_Ck_ ASS J.L K S ?.^T^r. A:_jD__ RBT URN R3gT I Nb 
# EXEC b R 5 ' S 
# 

USRSET DlRj Li;K^bOo/J0b; EJRj LDA NF^RKi SKG ZER$; TRAP 5 
dRM 3Fk; bku FKStrf; [3r«> STFK 

LPX PACPTR; LDA RL1/2; STA UfcRLlj LDA RL2#?; STA UBRL2 
LL>A jJRbT,/A; STA c.; ; LDA BSX; KCY 9; ETR K37; CAX 

LDA aKSTv/2; CLb; LRSH 18; MkC5 ■ NCMFM#1B6 + IB<H"12B2 

LDx FKCif (NEW PACPTR); STA Rbl#2i ST8 RL2>2 
LDA a7Q3t-» + £B6 j ADM PIM#2 

LuA jSa; ETR K777; ADD 0; 3Ta PL> 2 

LDA »ExECLi RSM I5i LDA J9b; L3H 15; MRQ X7; STA PTAB/2 

Lb/ STF-;^ (NT a XPB) 

~LD A "'3"S"ol7 SfA PA72; """STA "UBA 

LDA SSoa; STA Pb.#2i STA UBB; LDA SSQ3; STA PX*2; STA (JBX 
L UA_ S_B R 3 R T ; _S T a g ; STA u P L 

LOB *7GQGQ^6<s SRm FK38 



• 



* CLAS 

* SAVE 

* 



S a riS-UTuR BKS'S 
RETjRfv 



PAGE 



* RETURN FK3K 
EP9FX 



bRS 



i c 






CLASS 2 
TIME; uRR 3BRSRT 
Tfl^t; aKN ACT*; 6*0 * + 2j 

SSQl; STy S8Q2; STX SS03j 



uPR SBRSRT 
UDA S3RSRT; 



STA 0; BRU PACQM1 



* BRS 1U RETURN FROM EXEC i3RS»S (CLASS 3/4) 

pRSRET bl-ij L^j_i.1 c-/^yb;_ 1 1 «i. . LDA PPT_R# 3; MRG PLMSK; . CAX 

l ; j a p t r s r / ? ; s k e = 7 o u 4 & ; f r a p 6 

LUA JPL; bTA PL/2; ! Mn PL#2; STx FKOA 
LD* -'ACPTR; c rm ofk 



» bftS lib ERRM RETURN F^jR Fx.EC js*S_» S_ 



EXRETB 



EXR? 
XxR3" 
EXRA 



LDA 
TRAP 
8 T x 
LD X 
MRG 
_bR M .... 

t-D A 

C X A ; 

CAuJ 
LDA " 

ETR 
L ^ ^ 



PP7R,P 



7; 

F.XRA 
PACP 

X4; 

STST 

PUdP 
SKE 

jl / P ; : 
<77; 



. ..3 ♦ 

* c * 

SUl- 

£_ *>»L 
TR; 

b T A 

a.T;. : 

TR 

»PU 

_TIC 

LuD 

3»-E: 



MRG PLMSK; CAxj LDA PTEST,2; SKE c7000Q46 
THREE; STA PTEST,2; LDA UPL; STA 

Aj Qd PAC.PLR; _LDx. .„JQB; BRM . .RE.LPG. .. .. 

bRr. DFK; LDX ExRA; LDA PlM#2j LRSH 3; ETR SEVEN 

XPl; CLb; GTb PAcjOb 

S T /• _ P A CP T R j. S T x P.U P A.C ; D 1 R 

oPIR, uKU EXR3; LDA LTTY; CAx; MRG «3B5 
1; iiRM EP_U; ^IN ACTR;_&f?U P9FR 

2^2; LDX U#2; SkE TICl; BRU ExRP; CbA 

UlTY; BRU EXR2; EIR; BRU P5PR 



* ^RS 46 SET '^:\*TERMINABIL1TY 

J^RmjT __LiJ- _^ I ■•_*?; j^Ro XI; STA_ PJ_M# 2;_ 4KU PftPX_ 

*" _ BRS "26 "~ Skip" \v~ TER~Mlr>iATiaN"'PENDINi^ 

SKROuT LDA PpW; SkA x2; bRU SKR2 

LP * U TTY; Lp A „.^OFlY + H_ARpjrj....bJ<A_...TFE_f?._ 

SKR£ MI'-: 0; bRu K;Pa 

* BRS 47 CLEAR N&N-TERMli-MBlLlTY 

SR^UT LDA PlM.,2; SKA XI; BRU # + 2j BRu P&Px 



ETR .47777777B; XMA PIM # a; S«A x2 i BRU PACQEj 8RU PBPX B PAGE 

# BRS 90 DECLARC VdkK FfcR RUaOUT 
DFR CXA; L2X JTTY; STA TTYA3u#2; QH\j PQPX 

IF ST 
STG3 Etgo *• START STATISTICS 
LDA »RSR; U RM RLAaELi t^R^ §TG01 



$SP /KG;* STATISTICS POINTER. POINTS INT9 TABLF IN REAL PAGE 7 
*SP1 ZRO;* POINTS T9 NExT STATISTICS BUFFER TO BE DUMPED 

A£TC_ ^R &!_*... iilNNE.D.. AND STQR.E& IN16.EA.CH BUFFER A§ A BUFFER NUMBER 

$STSW ZRS;* -l IF STATISTICS ARE RuN,\lNG» IF STAT N9T RUNNING 

$STPISC Z-H-;;* DISC POINTER FQR STATISTICS 

$SSRE T STA RRL.3; L*R3i Pal RRLSf p«U. ..!#.?.. .{RETURN .FROM.. SSS) 

STSTOP [:q m * STOP STATISTICS 

LU^___=_RSR; ..uRM RLAbEL; oRU STsT'Pl .... 

ENDF '■• . :">:\^vl3^^ 

* READ AND CLE>R ERROR CODE. 

RDCLEC UDA ERCODE; BRU PBPX b . .. 

* MEfi^RY ALLOCATION LOGIC 

# 



* ASSIGN A Pes IT I UN IN PMT 

* RETURN S; N6 SkIF.NB pYTES. SKlP*iiYTE NO. IN X 

PMGET o<V} CLA"; lDl kMJ; mjn PMGETi bRM P*SCH; SKR PMGET; DRR PMGET 

PMSCH ZRlii._L'JX.. «.\UMEr;-l; STx P^-Go;. _L^X "NCMEM-1 

MGETl EA>- l,ci SkM* PMTjGd; L;RU MulT*; MIN PMSCHj BRR PMSCH 

M6ET4 SKR PMGb; »..-RJ MGETl; BRR PMSCH 

P^G5 ZRP 



* 

* GET A oL'-'CK MF MEMORY 

* I^PJT": A b "C'BR t A" i) D RE S S IN PAGE •'" I ^0 IRE CT "" B IT IF ME MB R Y "MUST 

* COME FKSM AN gPPER F6RK» 

* Xs PACPTR ■ _■ '■'_ '■■___ ' ' '_'_.'■■ 

MCET ZRO^ BRM MX01; SKE ZEROi" ~BRU"MX03 

LDA <M2; STA Mx09; LDX MSQ3 
♦SCAN F9R LOCAL WR FIXED MEMORY FORK 



© 






KGET11 STX MX03; LDA RLi/2; LDB RL2,2j LDX MX07j MlN MX09 
LCY o,?; SkA K77B6; BRU MGET12; LDX Mx08 
SKNLPJ^^c'; dRU * + 2; BRU MXQ3j 3kN PTAb#2 



PAGE 



BRU MQET13 (CHECK HIGHER FOR<$ FIRST) 
IDA Mxi4; SkA =400003; BRU Mx03 
MIN MXQ9; LRM PMGET; BRU M X 03 



STX MQTS2; bRM PMJA; LUX M$03 

* PROPAGATE NEw BYTE AS NECESSARY 

M G £ T 1 0_ ST x . Jl x * 8 j ._U,p A RL^2; _L.P.b. RL2j2i... IPX ^X07 

LCY Q,?; KCY 18; MRG MGTS2; LCY 18; RCY o»? 
LDX MXG^ STA KL1,2; STb RL2#2 

IDA PRTRiPj MRG PL'ISK; CAx; SKR_ KXQ9 * bRU MGETIO. 

* SET UP \Ev< map 

LUX '1SG3; c^RM CHREL; BRM SwAPl 

lKL__ p .ACJ-b.^. oRU.j.1GET2Ji .S.TA_...c.^RRLli. STB CMRRL2J STX CMRRL3 

MGE.T20 bKM LABEL; oRu Mx(M 

MGET12 LRGH ig; 3TA ^GTS2; CAX; BRM PMTA; LDX MS03; BRU MGEUQ 

MGET13 LDA ._ .PJ>J R_# .2; .MRG R.LPSK; CAxj SKA.. ...PR MS. K ;..... &RU .. MGET.l 1 ; BRU. MX03 

* 

* ASSIGN t;,LCCK IN PMT 

F^TA IR C j LDA jt;d; STA ojOq „ 

C.XA; ADD P.^Tjeo; EIR ADMSKj MRg .4186; MJN RAJ6B3 
DIP; 8^' b; EIR 

LDA .wETTb; XMA Tj&Bj STA PMTA2; LDA RAJ&B3J ...5KE ZER8 

bRu *-?:, LDA p*'TA2j STA TjuB; MIN# Tjt)B; BRR PMTA 
P M TA2 z*e s ) 



MGm52 ir^'o "" 

* RELEASE *EM5RY. uSED uY bRS 4t- 



MPUTA 



^; B- V i M^ui; SKG »NCMfM-l; TKAP 8 

CAX; LDA* PMTjOB; ^KE Z.ER9; «RU #+2; TRAP 9 

^^_*2» ( -R^ *+£; BHU_MPUJ2 
XXl>; LTa' MbQ3;" EXu EX;' CbX "" ~" ' " " 

&RM "-DEL, LRU MX04 



MPUT2 

* I NPUT'r^^RELAc'E'UNG "BYTEi" """' 

MDFL ZRB; LDA J6B; SKE 6NE; BRU * + 5; 
CQPY xA,b; S" 



„ _ . , _. DlRj L$GG 558#t9QXi EIR 
T2; STb T3; ADD PMTj6B; STA T 



RX33 



RXNTS 

RX6 

RX7 



RX4 

RXS 
RRRL 



RX3 
RX13 



CAX 
DJR 

eir 

LDx 
CLA 

ETR 
LDA 

LDB 

cap 

Ft S H 

C A X 
LD* 

'.j r\ ■■ 

LDX 

skn 

STA 

t,K'M 
LD- 

h o H 
bR M 

£k-\ 

LDX 



LD8 0/2; STd HLDC 
BPM RES; ciKU RX32 



PAGE 



RX3 2 
~MDELC" 

Rxa 

RXll 
RX1 



RX8 
RLM8LD 

RLMLDA 



EI* 

MRG 
C9F- 



T; CLA , 

; STA R L 

=677777 

PACPTR> 
=773777 

PMTE>2; 
Y XA #u; 

23; D I V 
. . l./.5..#__..Ll' 

PPTt^2; 

MDF.LCj 

RX7 

PACPTRi 
T3; dRJ 

_C.hRR.Ll^_ 
LA:,Cl; 
SwIM* , 

1.2../.._CA/. 

RAERc ; 
_P_ACMPi 



XMA 

BRr- 4 
7b i 

t-Ru 
STB 

»NU 
X...TI 

Ska 

dRU 



0>2; X^A T2; LUX JB8; CAB; SKE RL3#2; BRU RXNTS 

STA xPB; LDX PACPTR; LDA PTAB#2 

3TA PTAB#2 

KUF.LC; 3KN T2; bRU RRRL (N6T SHARED) 
LDA *12d5; ADD T; LDX *»NUMEM*Nje61 

.....RX.5... 

PMTt*2; SUB »*NghEM#Nj6Bl 

MEM; CtfPY AX'bA; ADD *NCMEM; STA T4 

M>v2; LDX TTYASuj2 

KS*B4; B^U Rx3i CXA; LDB T4 
RX6 



3 

R 
__S_ 



RLhLDD 



L D 
oK ; ' 

SKM 

skr 

LDA 
CXA 

LDA 
DIR 



^RLl; 

3 w I : j 1 <f ; 

; HLli w 
; SkE PA 

Y AxjpA;' 

KM1; ST 

RL1#2; 

*_L ■■."'_'-_#__ 
Tl; bRL 

■PPTRisV 
; SKE PA 



LD 
bR 

■§■ 

S 

.D_ A 



R^1 
X12 

liL.- 

N P 
TA 

A R 

R M 
R""! 
T'l 
TA 

MP; 



CHR 

CMR 

AC j 

CjP 

_ R A 
AJd 

DEL 
GET 

CMR 

CjP 
_._bK 



EL; BRM SWAPI 

KN PACjSBj ^RU RX13 

R.L2; Six CMRR.L3 

OB; BRR MQEL 

; LDx TTIME; u^ NPC; BRR MDEL 

4 



B2; SkE ZERO; BRU **2 

SWP; BRM SWAPI 
RL2; STX CMRRL3 
; BRR mqEl 

_U..RX33 . _ 

U RXll; SkR T3 



RLCT 
RLCT; 



HLDAj 6 

HLDC (j £ 
BR'1 RE 



LOt THREE; STB Tl _____ 

b RLCT; LDb K77 

BRU *+5; CNA; ApM RLl*2j CNA; MJN 

BRU » + 5; CNA; AQ M RU2/2 J CNA; MJN 
RXl; SKN RLCT; BRU RL.H8LD 
SKA K7/77; dRU R*2; qRR MDELC 

CRT*; BRU RLHLDB 

TB HLDd 

TR *77Bb; SKE -1285J BRU RX8; LDA HLDC 
L; E IR; SkR RLCT; BRU RLHLDD 



LCY 6 



X) 



G 



LDx HLDA; LDb HLOb i BRU R'X& 
£ KLHLDB SkE PAC3MP; BRl, # + 2; B«U RLHLDA; SkE PACSW; £RU RX8; B^U RLHLDA 
RICT ZR2 
HLDA £*£ 

# HLDb ZKf 
HIDC ^Rc 



B 
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» COMMON L'NIRy FJR MCin/MPuT/ChKRa 

* GET RELABELING pYTE l^TO A 

* INPUT: AaADDR* JN PAGE/ X«PACPTR 

MXQ1 ZR q j ST A M>1^ ; ETR =340003* STA hSOlj ST* MS03 

LU/ Mxoi; UDt. -1*2; STo Mxodj LRSH 11; STA Mx05l MUL THREE 



TTf)M 

# 

MX Oh 

MX03 LDA 

* 

llgOi ..4^ 

7T£03 



LJA ~<L\»Pi LDx RLH*2; xXb; STX Mx07 



RCY 18; LCy q,£; ETR k/7; STa Mx06; BRR MXCI 



'IN 



'XQO 



MXOC 

MXQ5 
MX 06 

MX 07 
MXl<t 

MX 06 
MX03 



ZRO 

ZR- 
.IRS 

ZkC 
ZR r 



LUX MS:)3; 3RR MiXOO 

ADQR« 0F._.1S.T. WORD I* PAGE . 

PACPTR 

RETURN P9R MGET OR MPUT 

page number 
relabeling byte 

REuAdElLING GYTE IhDEx 
I.Ni;.». b.IT«l._.IF. M£il6rvY ...JCGMES .FROM UPPER FQRk* 



* »Mt>R6», • APMTE'j 'UPMTE', 'MPT 1 6/30/66: 

# BRS'S F£k Mfj JIF YI -\(i THE MEMORY TAbLES 



* RRb 8Q MAnE pL^CK R EAP ONLY 






* INPUT: AaPMT NS, IF A LT q# MA<E FiLE R9« 

* 5UTPUT: AsF8RMEK STATE t)F PMT E.mTRY 



9THERWISE# READ'WRITE 
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MBR9 



ET 



MBRS7 

MBRg3 
MBR95 

MBR36 

$QS 
* 



LDA 

MRG 

B R v ' 

ETR 

LDA 

AD v; 



<77; STA MBR36; 9RM CRTA, TRAP 10; STA CRTA 

X2; EXU EXj uDa MBRQ6; SKG »NCM£M-i; ExU EX 

0#2; SKN SS01; BRU MUR63 

XI; STm Otdi LDX PACPTR; BRM CMR.EXj BPM SWAPJ 

P ACJWB, BRU MdR&7; STA CMRRLl; STB CMRRL2; STX CMRRL3 

LABEL; BRU Mt>R35 

= 67777777ai STA. 0*J 



CRTA, 
SSG1; 



LCY a; ETK x^i 

BRU PWPX 



XMA S301; ETR K77 



LBA :„qEC; AUD QQCC; CAX; LDA (iTIC; LDB QI&C; BRU XP0P 



# B R S S? 4 
CLFK LDX 

dR v 

LD^ 



CLEAR FbRKjNo STRUCTURE 

J6b; 3mm TTNB,2; qRu * + 2; y RM TRAP; LDX PACPTR 
MFX; MIN PL/2; STX FKQ4J UM PPTR,£; RSH 13; CAx 
sC-Ek; r RM 3CFK; CLx; 3Tx Px#2; BRM FKG83 



* brs ^ 3 reset ^imtrb. 

RSMET "ClaV'sta" B3KMET; LDX ' jdbi STa'^PCNT, 2; "STA~ETTB#2 

STA PTCKGic; STA CCT*2; BRu P9P* 
* BRS 8 9/ GET METER_ REAOI.NGS Ft)k $E$SJdN# 

REAOING'at 

CeiuNTi CHARACTER COUNT* PAGE TICKS 
CJ TIME._ 

BR V CTRU; LDB '5wPC^T/2; LDX SSOli STA 4*6; STB 1*6 

LDX J9o; LDA CCT/2; LDB PTCKS/2J LDX SSOl; STA 2*6; 



* 


As ABDRr 


Si 


;j F 


" * * j ■ 


* 


DlS< USE 


. » 


s.-. 


,k\ 


* 


CPD T I ME 


. t 


C~ 


: :\i;< 



RESMT 



LD A 



T A A*. f> '...UDA RE A_L ; . SUB... URE A_L ; „..S_T A 5/ 6 



f;s»cu.T 

DRu'PePx"" 
RESKT2 DATA 7 
* 9UTPUT FR O M CTRj t AsB FFECT I VE CPw. TIM* X«j66» 

IF -RP 

$CTRU C; LDX BUB; LDA CCT,2; MUL CTRuij STA CTRU2 

LUA_DS<MET; MuL RE3MT3; LSH £3; ADD ETTB*2 

ADD CT*U2; bRR CTRu 
CTRU1 DATA 300000b;* S»B. 02314632 F8K »05/KCHt 

CTRU2 DATA Q 



STB 3/6: 



o 



o 



ELSE: 
$CTRU 0; LDX jC+Bi LQA SwPCNT*2i MUL KP96| ADD ETTB#2 
STA CTRUl; LDA CCT*2; MuL KP?4j ADM CTRU1 

UDA PICKS,?} MUL KP06; ADM CTRul 

LDA DSkMET; mjl Six; LSH 23; ADD CTRgi; BRR CTRU 
CTRU1 D ATA £ 
KP96 DATA 36:>60blOB 
KP?4 DATA 07534122B 
KP06 DATA 01727C2^B 
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ENDF 



* BRS 175^ SAME AS bRS 89 WITH LTTB A3 SEVENTH W8RD 
BRS17S LDx jo.,; Li.3A tTFlj^; LDx SS01; STA 6#6; BPU RESMT 

» BRS S fr,, Re AD CPo TT-iE 

RTEX 6RM"''CTRu";"'L^i e ;"'x"P'9PX~ " 



» BRS 56 MAKE EXPANDED SMT ..qYTE A VALLABLE..T8. USERS* 






# INPUT: 'As Vy f "£" N u . 
MXSA 3K3 =LE3^T, SKG sFESMTj TRAP U; CAx; LDA X2 
__M?<o. E_X?'1IP/£i. STA E.XSMT.D#2i bRU.. . P.9PX.. - 



» 3RS 56 
* input: 

# 



MAKE. POINTER INDIRECT F8R RECBVER 

A: BIT Q = i Ft;R READ ONLY* blTS 17-23*RMT BYTE 

NUMBER FQR PMT QR SMT ByTE POINTED ATt 
£.:_6lTo_ 1^-23 SPECIFY THE PMT M6t 

* /:" BITS '18-23 ARE CHANNEL NUMBER F9R SECOND BYTEt 

* 6UTPUT: ABUSERS PMT bYTE NUMBER* 

PMTR Cb_ A L„£TR_K77; SKCj sNCMEM; TRAP !_£_; _CAX.; LDA* PMTjQB 
SKB ZERI^ TRAP 13; STx PMI2; BRU PMJ11 

* BRS 3 _^_AkE POINTER INUERJCT 

* INPUT; A; bIT o * 1 F^R READ 6NLV* alTS 17*23 * PMT BYTE 

* NUMBER FbR PMT (jR SMT BYTE P6INTED AT. 

* _XJ .cITl .i;i-23L__ARE_ CHANNEL .NUMBER FBR SEC0ND BYTE* 



# 9UTPUT; A = USERS PMT BYTE N9# 

PMT I LDA <M,i; STA PMl2 

PMIU LDA SSOlj £TR„_.K377i..SKG _-.N_CMelm_.t1j.. .B.RU___.PM_l3... 



I 



SkG"VfES>iT*1; 'bRJ PMl6i ~~SKN ExECl; BRU PMI7; BRU PMI8 
PMI6 Exu EX; LDX SS03; SKN TTYASG,2; TRAP 14 

. LP.* TTYAGG/2; LDA PTAb#2i LRSH IS; ETR K77 

SKo sNj9b; bRu * + 2; TRAP 15; cAx 

LDA SSU1; ETR K77; SUb -NCMEM; ADD PMTP/2; BRU PMU 

PMI3 ExO EX; Apu bSmT; u>RU PMJ^t 

PMI7 CAx; LDA E/.SMTD/2; SKA X2; BRU * + 2 (USER PAGE)* TRAP 16; CXA 

pmis SK V -: ssui; Exu (-x 

AuO_«.fcxSii'Ii Su^ 'FES^Ti SKG =XSMTEM; BRU P^Ui TRAP 17 

PMI2 'ZRe j uYTE N9. 

PMI4 CAx; LDA Q/H; ETR XX; SkG ZERO; TRAP 18; MRG X4 
STA Oj^} C/:A_i MRG sl2B3j SKN S$01; BRU #+2 

MRS XI; UJa PMI2; SKN PMI2; b Ru PMJ5i LDB K1S7 
tJ<^ =>MUCh; BRU * + 2; 3RD PMlXj STA F^I2 
W °M S .ET; TRAP 19; LDA PM12 
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PMI5 STA* p^T^Uc 

PMIX STx SS01; b«U PBPX 



* BKS 180 ADD A PAGE FOR SPECIFIED PMT ENTYt 

* INPUT: AsREL- BYTE 

APMTE GkD <7/j SkG a«iCM£,i-i; TRAP 2#; AX.C 
SKE* P^'TjOq; TRAP £5 
ADD ONE; STA* PMTjOb; nRU P^Px 



* BRS n-l DELETES PMT E nTRY 

* INPUT: AsRel. uYTE 

DPMTE ETR <77; G*G Zf *3j bRg PCP A ; SKG -NCMEM-i; TRAP 26 (SMT ENTRY) 

STA ^.DEE;\'&R^^H|;^ 

CtiX; Ska XE; BRU UPMTL1 (EXEC PAGE) 
DPMTEg LDx _MDEL; d.RM MDEl; [3Rg P_QPX 
CPMTE1 EXJ EX; bRU DPMTE2 

* BRS '4 DELETES A PMT ENTRY* REMOVES PMT POINTER 



* FROM ALL OTHER FORKS. 

* INPUT: A.ADDR. IN PAGE TO RELEASE* 
MPT qKM MPuTA; TRAP 27 i 6K0 POPX 



# COMPUTE RELABELING TAbLE ADDRESS 

* INPUT; A=P$EUDO-REL- bYTE 



c 



o 






* OUTPUT; A?PMT ENTRY/ B* INPUT X# X*PMT/SMT ADDRESS 

* RETURN SKIPS IF PMT IS N6T EQUAL ;ER6# 

CRTA ZHB } C6PY xB/Aa; SkG ■i^CMEM^i; B^U CRTA1 



EAX* PMTJ8B; LDA 0#2 
CRTAa SKE ZER8; MIN CRTA; 3RR CRTA 
CRTA1 ADD =SMTj CAx; LDA 0,2* BRU-.CRTA2 

# »RDRL»# , RjRU , #»STRL»/ »SgRL» 6/28/66 
# 



* READ AND SET RELABELING 
# 

* BRS 4 3_ READ FO.RK RELABELING 

RPRL LUA RL1*;-; LO a RL2,2; LDa SSo3j oRU XP6P 
# 

* BRS 116 J^RA|j_PK^ 



RURL LD> 'UPRRLlV'TDL"" UPRRL2; LDx SSu3j" bRU XP©P~ 

* 

* BRS **** SFT FORK RELABELING 



# CHA\GEb' kEL» IF REMAIMnG T I MET JUANTgM IS ADEQUATE, 



SRT STORES \E* RELABELLING. ^SRT STORES 9LD RELABELLING* 



* b 

STRL Eu u * _ _ _ 

SfA"STRLl"; GTtTSTRLg!; S<N PIM # 2i BRU #+2; TRAP 28 
STRLQ LDx »SRT; t R* UPRL44 j LDA <M|; STA S44T5j STA S44T12 
LDX PACPTRj LDA RLi*2; LDB Rl_£/2J. LDX «NSRT; BRM UPRL44 

LD/ O'Zi Ll-D «77ts5 
S4'+T3 LDA SRl^L/H; SKE ^ERQ; BRU S44T7; SKE ENSRT # 2| MIN S44T12 

b R U 3 4 <* T 4 

S 4 4 T 7 "' SK E "Tn" S R T"7 R;" d~RU S^Vl2 " ~ 

S44T4 yRx S44T3 

A*<^^.'+ r _k# b_R_U. S^4 T 1.3 *_SKN_S^4T12 #— B r U- .♦♦2i..._BRU. P&PX .. 



* RELEASE OLD PAGES THAT ARE DIFFERENT 
SV+T27 LDx <Mfc 

S4^T30 LDA ENSRT* c. ^_Sr,L_ ZE.«0i_ uRU * + £j t-RU S44T31 

SkF SRTWE/2; dRU *+2; BRU S44T31; STX S44T1Q 
SKo sNt^.EM-l; bRM 344T25; ADD PMTJ9B; ETR ADMSK 

DI^; BRM REL; EIR; LD x SMI Hi 



SV+T3I bRX S^Tjj; DIR; bRM RAGS; EIR 

CLAi SKE RAJ0B3; BRU *-li SKN RAER3* BRU S44T33 
U> X...PAC PJR.; LDA _ ST R L l j_L P B ..„ S T R.L2..i STA RLl*2i S Tfi. _R L.2# 2. 
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* C6MPUTE 
LDA 

CLA 

LDX 



S^4T14 






•NEW REAL RELABELING 

PMTJ8B; ETK AQMSK; STA SwpMTj CNA; ADD *SMT; STA SWSMT 
;_LDX KM2; STA SRTE.*2; faRx *-i; BRM SWIN 

RRL3; SKN PACjGB; 6RU S44T14 

CMRRLU STL CMRRL2; STX CMRRL3 
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pR> ' 

LDX 

» CHECK l£ 

S44T2 MIN 

5k o 

S44T9 CA * 

SK W 
SKG 

SKJ- 

SKA 

cHQ 



LAdEL; SK\ PACje»o; BRU P6Px; LDA SWIN14; STA CjP 
TTIMF; BRM NPC; BRU P9PX 
GAL IT Y 

"S'44Tbi STX S44T1Q; SKG »NCMEM»NUSMT; BRU S44T6 

sNC^EM-l; bRM 344T25; ADD PMTJ6B 
i_JL'P.A_0^2i ^>K£ Z.ERQ; bRM *+2; TRAP 29 

*12Bb; liRU SHT51; ETR ADfSK 

*ExSMTE; BRU * + 2; TRAP 30; SKQ -ExSMTl; BRU 344T53 
__iXt Clj :__b.R.U . .* + 2;.._BRU. ...S4VL6U ...STA ...Sif4T62l LDA* S44T62 

X'2; oKu SWT61; TRAP 31 



S44T62 

S44T53 S KU 

SK£ 
SMT61 LDA 

S44T51 Ska 

344T11 LDX 

S44T6 SKN 
S44T8 Sk a 

* CHECK Ft:- 

S44U3 LDX 

S44T19 LJA 

LDd 
CAx, 



_?P.MT£Li.. SKG. ■PMIMli BRU _*+.2i. EXU. £X 

*USMT; SKG »SMT; bRJ *+2i ExU Ex 

o#2; Ska xl; d*u S44T51; E*g Ex 

AltZi. ..lxR.W.. SfM»I_3*.. SKA K2B7; „ ExU. NEXEC 
S44T10; BRU S44T4 

EXEC1; TRAP 33; ADD »SMT; ORU S44T9 
<2w. 7 ;....tXU.NSYS;.. BRU S44T11 



I S3 1 

6 i 



>G PAGES 



S44T1S Sk TI 
"SMTTTTTR 

M T ••■ 
I i I : v 

S4 4T15 b R X 
LDA 

SKN 

SK.'v 

SV+T21 UDA 
S44T20 LSh 

LDX 



<M6; CLAb; STA S44T12; DJR 

SRT44E/2; SKF" ZER3; fc,RU ^ + 2; BRU S44T15; STx S44T1U 

*7/b5; SKG a-\CMEM*l; BRM S44T25; ADD PMTJ8B; 

LDA o*Z 

*i2b5;__bRU S44T17; CAXi LDA _&/£; BRU S44T1S 

=7735; LRSH 15; COPY Ax>b; LDA SWLS; LSH 0#2j SKA X4 

S44T12 (COUNT MISSING PAGES); LDX S44T10 

s 4 4 t 1 3 

S44'f 12; " SK^'PACjOBi oRU S4 4T20; ADM PQ44 

RAs^ol; dRU S44T21; SKN PACSwi BRU * + £; BRU STDMS 

A_CTR; _tr.kU STDMS 

SfKLC;"" SKG" PG44;~ BRu'STDhS; yRU S44T22 (BRINQ PAGES) 
1; SKG TIME; BRU *+2 (BRING PAGES); BRU STDM$ 
PACPTR; LDA Klo5; MRG PL/2i STA PL/2 



O 



o 



* BRING PAGES 

S44T22 LDx <M3; LDA Q25; STA RFR; LDA j88; STA BJ^B 
S^T£3 LDA S_R7>4E*2> SKE ^ERQ; BRU * + £; BRU S44T24; SKE ENSRT#2 
&RU~'* + 2; "tii&U SW24; Six S44T1QJ SKG «NCMEM*l 
&RM S^T2S; ADD PMTJOBl £TR ADMSKJ-MRG «M66 
M1N RAJ663; BRM b; LDX S44UQ 
S^4T2^ 15RX 1T^4T23;""BRM" RAGft; EIR 

DRJ 5<tfT27 

* READ CRRUR 
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S^4T33 LDA <M1; STA RAER3; LDX KM** 

S^4T28 LDA 5RT44E/2; SKE £ERQ; BRU #+2; BRU S44T29; SKE ENSRT#2 
uK u »+?; l3ku S44T23; sTx S*4Tlg 

KC^EM-l; l>R m . 34fT?bj ADD PMTJ6B; ETR ADMSK; MRG X4 



SKG 

STA 

S4VT41 SK K/ 

S^4T42 ETR 

SKA 



S4hT*3; LDB *7'/b5; CAX; LDA o»? 
-*12£>5 J L..^RU.S*4T42;._CAXi_...LQA Q/.g ; ...faRU.. S44I4 J 



*77b5; LRSH 15; C3PY Ax/bj LDA SWLS; LSN 0#2 
X4; bRU S4<*T4<fj LDA S4^T^3 



DIR; B^M REL; EI 



S^T44 LDx S44Tio 

§**^Z3 bRX S44T28, DIR; BRM RAQQ; ElR 
* RELEA SE REmAI^G OLD PAGES 

LDX <M8 

S44T3* LDA ENSRT#2; SKE ZERO; BRU **2j BRU S^4T35j SKE SRT4*E*2 

BRU S44T35i ST>; 344T1Q; SKG »NCMEM-1j £RM S44T25 

ADD PM7JS&; ETR ADMSK; MRG X^; DIR; BRM REL; EIR 

L D X S 4 4 T 1 
S44T35 cR x S44T34 ; DIR; b^R AGO; ElR j L Px PACPTR 



LDA STRL1; LDb STRL2; STA RL1#2; STR RL2#2 
IDb STRLD; MlN Q; STB PACDMS, LDA PACPTR 
LDx aQTIj pRU P9PR4 



S4 4T25 ZR^i ADD sSMT; mIn S44T25; BRR S*f4T25 

* UNPACK RELABELING 

* INPUT: A/a«R ELAL>E UING* a*TABLE ADDRESS 
UPRL44 lk$i STB SwT'3; LRSH 18; STA 0,2 

CLA; LCY 6; STA 1,2; CLA; LCY 6; STA 2#2 

OAj LCY a.; STA 3* 2 j LDA S*T3; LRSn is J STA <M£ 

CLA; LCY 6; STA 5,2; CLA; L~Cy d; STA 6#2 
CLA; LCY 6 ; STA 7/2; BRR UPRL44 

* CHANGE Rl.1#RL2 AND DISMISS ON ©LD QUEUE* 






STDMS 



NSRT 



EIR; LDB PACPTR; LDX jQBi LDA X4; BRM RELPG 

LDX PACPTR; LDA STRL1; LDB STRL2J STA RL1/2; STB RL2,2 

LDL. 3TF-LD;. MlN 

PACDMS; LDA PACPTR; LDX .Q^Ei SKN SVST; 6RU * + 2; LPX «QSQ 
PACj&b; bRu P8PR5; LDX *C*TI; BRU P9PR4 
8 UNPACKED RELABELING 
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Sit 

SK^ 



E'SRT uSS 
S4 4T43 ZHO 
S4 4T1D ZRP 



:) 



S44T5 DATA -1 
S44T12 DATA »i 

STRLD c4ci ?AOMj 
STRLC /R?" 

STRLl ZRO 
STRL2 ZRe 



TEMP STtiRE F6R ERRORS 
TEf'P STORE FOR x. 

COUNT 3F NEw N6N-ZERS BYTES 

CSJNT aF NEw Q BYTES, C9UNT 6F MISSING PAGES 



15 



C 



3F 



U) 'RS~'~44 "PAGES "ALLS wiED FOR QOC 

NEW RELABELLING ^SRD$ F6R BRS 44 



# BRS 117 SET PROGRAM RELABELING IN T3 BLOCK 

SURL CLA; LDb UExFLb; LGH 2; CAx;.jLpA ■ 7B_&;._.IS.H. Q,2; ETR X7 

CAx; LDA SS01; LDB SSQ2 
L>R^ SCRL; TRAP 34; LDA SSQ1; LDB SS02 
SIA_upRRLJj_STj^jj^ ..... 



IF DRS137 
BRS 137 . 



STACK ANp CHANGE PR.6QRAM STATE 



* 

st<ps 



LDA 
bRM 
"LDA 

SkR 



PSDEx; SKG =MPbDEX-il BRu •* + ?; TRAP 35 



Ti 



LDA oIa; ADM PSDEX 



t>RS 



SSOl; CTR aUMS*; MRG X4; BRM CPSTMS 
'J; N3P; LDX PACPTR; BRU 3TKL 

T3h " " ~~ UNG TAC* A,>|0" CHANGe""pk9GRAM ST ATE 



USTKPS LDA PS DEx; S^G ZERO ; TRAP £6; W RM C^STPS 

LDA PSDEx; ADD »PSST<-6; BRM CPSTMS; STA StRLU STB STRL2 

LDA PSDEx; C&PY Ab; Sju Six; STA PSDEX 

ADD spSSTKi COPY ABjBAj ADD . sP.SSTK; BRM CPSTPS 



LUX PACPTR; LDA STRLl; LDB STRL2; BRU STRL+2 
bRS 139 - READ PREVIOUS PRQGRAM STATE 



O— o ...o 



* r, B PAGE 17 

RPRPS LDA SSOU ETR ADMSKj MR(i X4; COPY AB; IDA PSDEx; ADD *PSSTK; BRM CPSTPS 

bRU Pf;PX 



* BRS 140 - CLEAR PROGRAM STATE STACK 

# 



CIRPS cePY A; STA PSDEx; 6RJ P5P* 

» THE' FOLLOftl-NG RATINES tfELa.NCi .. JN B PACKAGE AFTER C8DE F6R bRS 139 

* 

* C6PY MACHINE STATE TO PROGRAM STACK 
* 



$CMSTPS "z«n ' 

LDx PACPTR; LDA RLl/?; LD3 RL2#2 
LUX PSDEX; EAx PSSTk/2; STA 4/2; STB 5/2 



LDA Q; STA 0/2; LDA SS01; STA i,2 

LDA SS02# STA ?ic 3 ; LDA SS03; STA 3/2 

DRR CMSTPS 

# 

# * CrjPY PR9(iR*M STACK Tt) MACHINE STATE 

» 

SCPSTMS" z'rb 
ADD <2a7j STA PSDEX1; COPY X 

EDA*.. PSDEX 1.; MRG.x.4.; STA. Oi EAx._U2_ 

LDA* PSDEX1; STA SSQ1; EAx 1/2 
LDA* PSDLXl; STA SSQ2; EAX 1/2 

LDA*_PSDEXL'_ STA SSJ3; EAx 1/2 

LDA* PSDEXl; EAx 1/2; LDb* PSDExl 
% bR- CPSTMS 



# COPY PRcUjRaM STACK Tft PRtjQRAM STACK 

* 

SCPSTPS zhu 

ADC »6 + 2p>; ETR »6J7+37777p; STA PSDExl; C6PY aA 
ADD =6 + 2b7; ETR «6w7 + 37777ii; STA PSDEX2; LDX KM6 

LDA* PSDExl; STA* PSDEX2; bR* *«2; BRR CPSTPS 



$PSDExl Zkb 

$PSDEX2 zRd 

ENDP 



• 



* UNPACK RELAbELING AND CHECK F0R LEGALITY, ""9- PAGE 18 

* INPUT: A.RLl' 8*RL2 

jlJL*p^I1_x?x7 . f_»K Ext.c# x3 fqr system, xi ran subsystem* o fqr user 

* ©utput; xppacptr if it skips 

* n3 skip? a pmt entry.o dr user tried t8 relabel an exec paget 

* skip! relabeling 8k* 



SCRL £Ktt; STX STRLoj XxA; LSh 1; STA STRL52; LSH 1; STA STRL51 

LRSH 2; XXA; CLX; D RM uPKL; LDx K'MiqD 
STRL3 LDA SRTE,2j_ SKE ZERtf; oRU # + 2; bRU STRL7* SKG »NCMEM*NUSMT 

bRU STRL6 
STRU7A brk CRTA^ L ,RR sCRu CBx; STA STRL9 
U) : 3 *77i35;_SKM «12o5; l3RU STRL8;_ETR ADMSK 

SKG slxSi^TE; csRU *+2; bRM STrLd3; SKG »ExSMT1; BRU STRL10 

SKN STRLol, BR,J * + 2; bRU STRU41; STA S44T62; LDA* S44T62 
okAxP; D Rvv STRL<U; :3RM STRLb3 



STRL1Q SKG «PMTE; SKG «PMTMi ; BRU * + 3; SKN STRL5; 8RM STRL53' 

SKG *USMT; SKG »SMT; bRU **3; SKN STRL5; BRM STRL53 

STRL41 L UA STR L9; SKA XU_ BRU STRLBj SKN S_TR.L_5j BRM STRL53 

STRL8 SKA xa/'cRC STRL4 

STRL7 tiRx STRL3; NJN SCRL; LDX PACpTR; BRR SCRL 

STRL4 SK A *jj P RU STRLlli Sku STRLS; &RR SCRU BRU STRt,7 

* PAGE IS READ'"UNuY" 

STRLH SKN STRL52; BRR SCRL; BRU STRL/ 

# CHECK F6'R SUBSYSTEM 



STRL6 SKN STRL51; uRR SCRL; BRu 5TKL.7A 
STRL5 ZR6 NEC FGR EaEC 

STRLS1 ZRe Q NE G« FSR SUBSYSTEM 

STRL52 ZHd u NEGi "FCK" SYSTEM 
# STRL53 ZR^/ BRR SCRL 

STRL9 ZRD 



STRU61 ZRD 
* 



* BRS 10 

PPAN LDA 0; CLU; LDX »yTIj pRM PTRAP 



# 



O "" o 



o 



# 

* BRS 70 COUNT FREE PMT ENTRIES 

* RETUR NS NOt 8F FREE PMT ENTRIES IN A 

FPPMT LDX JBS; LDA PMTP/2; ADD .NUMEM+250B5; STA FRP2 

UDX ib-NUMEM; CLAj STA SSQ1 
FRP2 SkE ,2; BRU » + 2i MIN SSQU rjRX #*3; &RU P8P.X 
* 
* 
» BRS 7 1 _SkIP IF ExFLu SET, SET 6«UEXFLG VALUE. 

* UEXFLG VALUE: 1 -1-2 

* EXEC TYPE: 1 NEITHER B8Th 2 

SKXEC _J g j;.a_UE:xfk.^f STu S_U.y2i. .SKiS..uExELoi... bPU. PQPX; MIN Q; BRU P8PX 
* 

* TRAP ROUTINES 
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* 

* ILLEGAL INSTRUCTI8N TRAP 

TRAPI Z R3; STA_SS0_1; ST& SSQ2; STX SSQ3 
LDX PACPTRj LDA NL2*2; ETR *17^Z 

SKE si6y2; BRU * + 4* LDA RRL2j STA RPL1; BRM M8NCR 
LUA TKAPI; LDb ONE; LDX «QTI| ;jRM PTRAP 



* 

♦GENERAL TRAP LOGIC 

» INPUT? AsTRAP L6C»/ 3-REAS-3N/ Xf GuEU£ ..FOR NEW FORK. 

TL^bEL PTP 
PTRAP zWi STX P'TRPA 
. CAX; LDA stO:;bi Mku SlTS; aRM PTPL 

LDA RRLli STA PTRL1; LDA RRL2; STA PTRL2; LDA RRL3j STA PTRL3; CXA 

LDx PACPTR; SKD KMi; bRU * + 2j LDA 0; ETR »50037777B 

DP-; L9C3-3 r>6t>*F-TRAP; EIR 



STA PLi2; SKN xPS; bRM M9NCR 

LDx XPB; LDA SS02; STA P&/2; LDA SS01; STA PA # 2 

LDA SS Q3; STA PX# 2 

if dTJTfp" 

IF FPH 

_HFST FAC1#_FAC2 

ENDF"""" """"" "" """"" """" 

E N P F 

LDX PACPTR 






PTRUl iRZ 
PTRL2 IRV 



£>W' RFK; LDA P'TRPA; BRM TFK; STA FKCH B PAGE 20 

LDX TF07i STX STFK2; LDA PTRLli LDB PTRL2; LDX PTRL3 

.Ml 1 LAbE.L; bRM FKQU3 .. . 



PTRL3 ZR c? D 

PTRPA iHfv r>Ufc'Ut F6R IvEa FtfRK 

* ILLEGAL SYSFSP Ex IT 

TRAPS ZRL; TRAP '♦£ 



$TRAP ^R? Q; fiRM MPPACT; SKN XPB; BRu * + 3; LDA TRAP; STA ERC8DE 

IDA 38R3HT; SKr. 0; STA 0i LPA 0; LDB 9NE; LDX «QTI j BRM PTRAP 

♦READ-ONLY TRAP 

TLAbEL Tp.v 

TRAPR /Mdi STA TK01; STb TRQ2; STX TRQ3 

LDA T RAP^ ; ETR sF>0u377_77u>; STA TROO; MlN TRPXMA 
BRM CAE; Nfc'P; SKK TRPxMA; ETR *3<+000B; MUL *6B4; STA TPR^ 
LDA RLTS; ;1RG «Q6B2; bRM TPRl 

LDX PUPAC; LDA_RL2*2j LDb RLl#£ 
~~ LDX~TPR~4; LCY 6#2; ETR K77i SKJ sNCMFM*!; BRU TPR26 

# ADD PMTJOBj ETR ADMSK 
TPR25 CAx; _LDA_ Ofci SKA a! 

bRU TPR3 (R'tA'LLY Ra); CxA 

• D1R; BRM ^ ; EIR 

LDX_TPR*i__LP I j RRLli LDA ..RR.L2j LCY 6*2; ETR.. ■77.77.7737B 

RCY 6,2; LDX RRL3; XAB 

SKN PACjt'b; DRD TPR22; STA CMRkLl; STB CMRRL2; STX CMRRL3 

TPR22 BRM LAbEL 

LDA TpR'Li; BRM TPRL 
IF ODJFP 

IF FPr;. ____ _ _ __ 

LDA* TROO 
£ LDB »157B5 

SkM = 13b5 



BRU 




■■ * + 2 ■ 




SK^ 




T'XCO 




BRU 




# + 1 




ENDF 








ENDF 








ROV; 


LDA TROO; 


LCY 1; uSH 1 



zsr ~ ~ o O 



Z.*#*TW 



9 



TPR3 



TPR26 ADD 
TPR4 ZR* 

TRQQ £R£ 

T'RQl £RO 



TROc 

TR03 



IDA TRQU 
IDA TROU 

sta _ssg3 j 

«SMTj 





ZR9 



• MEMORY TFAP 



UDB TRQ2; LOX TRQ3; »RU* TROO 

STA SSQU IDA TRQ2j 5?TA SS02J IDA TRQ3 

IDA TRAPR; STA Qj bR^' MTRAP 

BRU TPR25 
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TRPXMA IHO XMA41 




XMA41 XMA iflu 




XMA<f3 x r"f A ^ 3^ 





TRAPM 



TXQ5 



TLAbLL 
2RF;* 



TPM 



MEMORY TRAP INTERRUPT ROUTINE 
IF bUG 
^TA_TT:;lj_ l_DA .trap-i 

SKF- »TTGM; bRU * + 2> 



;_£TR .40037777B 

f3R^ M9NCR; LDA TTQ1 



oTA TxOlJ STfj TX02> STX Tx^3 

LDA TRAPM; ETR *50g37777B; STA TxOC; bRM CAE 

MkG «40000b (MEM6RY MUST C8ME FR8M A HIGHER F8RK) 

SlAJTTOl; IDA s06Qwdi MRG RLISi bRT TPML (MAP PMT ) ; LDA TTOl 

LOx PACPTR; 6R^ 
LDA TpMLl; uRM 
IF DDIFP 
IF™ 
LDA* 

LRU 
SK"' 
bRv 
ENOF 

_ENDF 

Rt3"v"; L^A "Tx"gD;"""LCY""1;" LSH"l 

LDA TxqI; LDB TX02; LDX TX03i cjRU* TXOO 
SKN TRAPM; DRM MTRAP 



F'Ph 




^ TXGO 




* lb7t-> 


5 


a?13B5 




* + £ J 




TXOO 




*+l 





i v 'GET; BRU TXQ5 
TPML (RESTORE RELABELLING) 



CHECK F6R POT OR " P'lN" FR8M" FP~ 



MTRAP 
MTPAN 

TXOO 
TXQ1 
TX02 
TX03 



LOA TXQli STA SSOli IDA TX02j STA SS02* IDA TX03; STA SS03 
LDA TXOO; SKA >if; STA 0; BRM MTRAP 
.JwJ LJX PACPTR; IDA Klb6i B«M RUR 
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IDA 

zwe 

ZRe 



0; LOB Two; LUX -QT1 ; dRk PTRAP 



bUu 



TTQ1 £Re 

ENDF 
# C&MPuTE LFFE.CTIVE e^T-OF -BSuNDS ADDRESS 



* INPUT; AsTRAP L!:;C» 

* 0UTPUT; AsAjDkESS $x X4 IF PtfP CAuSEP TRSUblE 

» Nd skip: us er plp jr p»luc»_ oRancheq ts» 

* Tpt » 114 + N CY 

CAE ZRC; STA CAEl; STX CAE3; S<N PgSw; 8RU * + ?j BRM M6NCR 
CAE 11 BKK CEX; LDA * CAEl; frRU CAE4 

* ADDRESS Feu-.D 



CAEb 



LDA CAC 



LRR 



:AF: 



* ADDRESS NOT R;jr.U 



CAE4 LDA CEX3* STA CAE2; SKA XlJ bRU CAE6J LDA JABXTj ADM CAEl 

LDx CAE3; BRM CEx; EAx* CAEli dRU CAE7 
« INDIREC T ADDRESS CHAIN OuT-9F-BQUND3 

LD* <m^lj4; ADM CAEl; qKU CAE9 
CAF.8 LDA CAE'U ETR X^; MR3 CEx3> ETk «60037777Bl STA CAEl 
CAE9 LDX CAE3; t ;RM_CEAi LDA# CAEl; w Ry CAE8J BRU CAE5 



* P9P CAUSED TRMiUuLE 
CAE6 LD A X4; dRk CAE 



* CHECK FPR ExU- ^TME'^ISE X CONTAINS 



CAE 7 



BAD ADD_RESS_ 

LDA CAE2; E~0R EXUW 



CXA; ETR «40037777o; STA CAEl; _.. ...__, «_ . _ 

SKA *177D0C0QB> tiRu CAE1Q; LDX CAE3; bRU CAEll 

* N3T EXU 

CAEl 



CAE 10 MT 



tjRo CAE5 



CAEl ZR6 



CAE2 


ZR? 


CAE3 


ZRe 


EXUW 


E Xu 



o 






I ABIT ZR5# 

* EXECU TE. NExT INSTRUCTION AND SKIP IF 8UT-eF*BSUNDS 

* TIME t 31 + N CY 

CEX ZRR; MlN CL X; STA CExii UDA CEX2; EXU* TRPXMA; STA CEX3; EXU* CEX 
CEX4 XMA CEx3; EXU* TRP*MA; LDA CE/lj BRR CEX 

* 9UT-&F BOUNDS If-' wE Ct?ME HERE 



CExi 



BRU * + l; MIN CEX; dRU CEX4 
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CEXI 2RP Q SAVE A 

CEX3 ZRS Q CONTENTS OF A AS A RESULT «F EXECUTING NEXT INSTR, 



» PARITY INTERRUPT ROUTINES 

CPUP 0;* CPu PARITY. CPUP MAY CONTAIN ADRS 8F FAILING INSTRUCTION. 

MIN CPC; SKN CPUP; bRU * + 3i SKN EXECS; BRI CPUP 
STx MCRX; LDa »1UQ076B ___ ^ 



CPUI8P CKF; E'JM 20004b (DIR); STA MCRA; STB MCR6; BRM ST»P 

i op o;* ip parity interrupt 



E6D 1200GB; PIN T3; STX MCRXa LDx *1Q0074B; BRU CPUIOP 

RESERS E*W^_MP^e; rjRU *KSb 
JNCtiRS bK" Mp Afc j; i-.Ru .%i\6 
REDBRS b\<v MPwti; bRU aROB 



* BNS" 1^3 ~"7EB~r BIT MAP SET""" " " 

B^TST SKN SDdM8; MIn (MAP SET); LRU PdPX 

* uR S 7 _READ OR *KITE A TA^LE ]N_ THE. MONITOR MEMORY 

* AsUSER CURE - ADRS/ "SIGN BIT 9N FOR V*RITE# X ■ TABLE NUMBER. 



KwTA-i MACR& SETS UP A SINGLE wORp ENTRY JN THE TABLE 8F 

AC C LSb AhLE 10\!T^ TABLES t 
XN ENT^Y HAS BITS 1023 AS THE TABLE ADRS. BITS 4*9 ARE THE TABLE 

SI/E» BITS 0/1 ARE THE MINIMUM STATUS REQUIRED T0 WRITE 
THE TABLE AND dITS 2/3 ARE THE READ STATUS. 



RwTAb MACR3 0;* CALLED WITH 4 ARQS T ABAPR, TABS! 1$ WSTAT/ RSTAT 
D2MJ EQU D(2)-l SIZE ARGUEMENT MINUS I 



DTAG E<,iVT#D<3)+D<4)/2 BITS 0/1 F9R wR STATUS/ BITS 2/3 F8R READ STAT B PAGE 24 

D6P3 EJU D<4>-D(4)/2-D<4)/2 1ST BIT OF OP FIELD IS 2ND BIT ©F RQ STAT 
D8P2 EGU D2Ml/2 + D9P3*40y CREATE OP FIELD 
D©P1 8PD D0P2*1p5 

IF D2M1-D2M1/2-D2M1/2 
O QP l» D(1)/DTA3; ELSE; Db?l DQ)/DTAG; ENDF ..... ... 



FRGT R-TA t i/02Ml/DTAG*DOPl/DaP2*D0P 

END 



RWTAB1 E(,L * TAbLE 8F MONITOR TABLES ACCESSABLE TO THE USER 

RwT*3 <HSC/ 476*3*2 COUNTERS TYPED QUT BY *1C8UNT/ TABLE 

_______ R__TAa RAERL/20*3/2 RAD .ERROR TABLE* TABLE 1 

RwTAi il)ER2/10/3#2 DISC ERROR LIST/ TABLE 2 

RwTAJ yTIuO/32/3/2 SWAPS/ACT I V. COND/ TABLE 3 

___Ta>_, _loB/6/3/2 BASE-HUST COMMUNICATIONS/ TABLE 4 

RwTAa RMT/NMCM/3/2 REAL MEMORY TABLE/ TABLE 5 

RwTA3 uFLG/40/3/2 GLOBAL FILE NUMBERS* TABLE 6 

^wTA__ ......TT',0_#_4J:>3/2. ...JOSTO PORT. CONVERSION/ TA£iLE 7 

RwTAB ALARM/ 1/3/ei ALARM/ TABLE S 

£ RWTA3 xBP*40*3*2 GLOBAL X BLOCK PTRS* TABLE 9 

KwTaS DSCTSP/l#3#.2 HIGHEST. DISC ADDRESS/ TABLE 1Q 

RwJAB MACH/ 1/3/0 MACHINE NUMBER/ TABLE 11 

RwTAB E"uPT#l/3iO FOR THE MAP/ TABLE 12 

R wTAj $TACT/P # 3/G TAaLE 13 

RWTA3 w_RIS/NP0RT/3/2 LUD L9C TABLE/ TABLE J4 

RWTAS PMTP/NjtJB/3/2 PMT PTRS FOR EACH JOB/ TABLE 1$ 

R_wTA~i CP/R>^j3d'3*2 C8.NTR8L PARAMETERS/ TABLE 16 

RaTa" d A w .\'N/Nj83/3/2 USER NUMBERS/ TABLE 17 

£ fV*TA3 FoLlST/NjOo/3/2 F.D« GROUP LIST/ TABLE' 18 

R*TAy_ ApRSMT,l_/3/2 MISC MONITOR CELLS/ TABLE 19 

— — Rf^TAB ""RATR/32/3/^ RAD BIT MAP/ TABLE 20 

# RwTAti ETTB/NJ8&/3/2 COMPUTE TIME/ TABLE 21 

R'«TA-j PTC_o/^J»d#3*2 PAoE TICKS/ TABLE 22 

RwTAB " CCl/NjOb/3/2 CHARACTER COUNT/ TABLE 23 

RwTA-j TTYASQ/NPaRT/3/2 PACPTRS/P8RT TABLE 24 

RwTAB *0* 20/3/2 MONITOR QUEUES/ TABLE 25 



RWTA3 MQNTAB/2/3/2 ADDRESSES Id PEEK AT 

RwTAB JEaFLG/ 1*3*0 JOB STATUS 

RwTAri DBITS/1/3/Q NUMBER OF AVAIL DISC BLOCKS 






II 

- - - ^^^F 



RWTABN EQU #-»WTAEl LENGTH QF TABLE B PAGE %% 
* 

* M6NTAB C QNTA1NS THE ADDRESS OF CELLS T8 USE THE BRS 127 0N 

H9NTAB ZR6 PNExT; ZRO PPTh 



BPS7 CxA; SKG «RwTAfcN-l; SkG kMI; TRAP 43 (ILLEGAL TABLE); 
# LDA R w TAcU#2j SKN SSQlJ LCY 3; LRSH 1; SKG PRJIEV 

BRu__jLt£.i TRAP 44 (READ QR^RLTE STATUS INSUFFICIENT) 

LDA RWTAD1/2* STA LP; RSH 14; ETR K77; ADD ONE (TABLE SJzE) 
% COPY Ab/N; COPY AX/N SIZE IN A AND Bt NEGATIVE SIZE IN Xt 

Z^ AD D SSOl; ETR .4C037777B; STA 3SQ1 UPDATE USER'S POlNTERj MRG X4 

XAB; ADD LP; E1R ADMS* USER AORS IN B # MONITOR APRS IN A 
Sk n - SSrjl; >AB (HE »ANTS TO READ, NOT WRITE); 
ADD sg'j^L'i (STA 0,2) j STA u P+i; CBA; ADD -276B5 (LDA Q#2); STA LP 



LP 0; 0; BRx LP; bRU PttPx 



* BRS 39 READ CPARw AND AgNN 

RCPARW LDX JOb; LDA CPARw,2j LDd AUnN#2; LDX SSQ3; 8RU xPOP 



# PEBRS 3RS 127 

# READS A WORD IN MEMORY* 
» INPUT? X slOC OF W8RP 

ki^rilf: ^^ sw ^- trio**'* 

LDA SS :jj; SK 3 K X Sq ; . SKG .. K.M.1;. TRAP .. 4.5 



RSH 11; ETR K37; MRU »600B; XMA RRL3 
LRR3; P9T RRL3j CLA; LSH 11 
LDd <77} 3*6 RRL3; ADD ■340QQB 



f STA PEB2 ) +IH9S' t 



CAx; LDA Q*2 

STA SSOl; LDA PEb2; XMA RRL3j LRR3; POT RRL3> **0 Po8* 

$<f- «612b; BRU POPxi rRu BPOPx fTH^ART PAS SWORD WATCHING) 
"PEB2 T&U T&mP §T6ARAGE FQh RRL3 V 

* ^ y 

* SETSW LRS"136 ' "" * 

* SET SWITCHES FOR MONITOR AND ExEC 

» input: a»nea switch value* x*s*itch number* 



vv:*Tr 









* SUTPUT: A*9L0 SWITCH VALUE. 
SETSW XMA SwEX*2; DRu P8PXB 
# 
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» BRS 5 RETURN STATUS 0F CALLING F8RK 

# RETURN: A»l,SUbSY5TEM/ A.3«SYSTEM# A*7*E.XEC 

_* A«OfNS STATUS 

FKSTAT LDA "PPTRTeTj MRU PL^SK; SKA Pn^SKj BRU ♦+2; IDA PACPTR 

COPY Ax/A; LDB X2; SkB PTAd#?; MPG SNEj LDB K400 
SKb PJM^P; MRp FQukj LDB K20Q; SKB PIM#g 



"*RG TWP; Bku PtrPXB 



FfjRK L03IC 



* FIND HIGHEST FdRK IN STRUCTURE 

HFK ZR6; LDA xPbl t'TR a4j STA xPbi STA STFK2 
HFKl LDA PP T ij,2i SKA PRMSk; BRU * + 2i BRR HFK 
MRG PLMSK; CAXi BRU HFKl 

* GET F6RK ENTRY. 

GFK ZR E; LDA FPLSTj SKG ZER8j BRR GFK 



# SET 
STFk 



BRR GFK 



SU-U »PPTR; C9PY AX/ A 
XMA °PT»<,2j STA FPuST; MJN GFKl 
PPCU.WOlD)s *E w / PS cJ.'<iM(NE'rt)»Q 

P F U F K ( N F * f « BL D / P P A R ( N E * ) ■ P D "8 A N ( 6 L D ) 
PTEST TS 7E 2. 

ZR^; STx FkG*; SKR NF8R_j<; bRu * + 2<? _BRM M9NCR 
LDx PPB; LDB Pb*2; STB PP3; CXB; STB STFK.2 

3; LDX F'KO^i STB PlM # 2i GXA 
PACPTRj LSH 12 



LDX 
~ETR~ 
UDA 



LDA 



STFK2 
$TF*3 



PL^Sk; XMA PPTf<*2; ET'R PRMSKj ADM PPTR#2 
FK04j C9PY XA#AX# Bi £TR PRMSk; STA PPTR# 2 
jSTD<3j S TA_ PTEST, 2 

LDX PACPTRj BRR STFK 

ZR5 XPB F&R NEw FdRK 

7B 2 ACT. C9ND. oEFaRE FORk RUNS. 



%J 



© 






o 



o 



o 



ZR0 



NE* pacptr 






FKCH 

* delet e: pac entry whuse pact PTR Is 3IVEN IN X 

DFK ZR9; DIR; L9GG 21B*DFKJ L06G 21B#PACPTR; EIR 

CxA; STx DFOli LDA «700000Bj bRM GSCH 
» REMBVED FRfh ygEUE JF DISMISSED 

LDA PP?R>2; SKA PRMS<; dkU * + 2; BRR DFK (ExEC N8T DELETED) 

* REM6VE Pp PC I NTc R 

LDA "pim" # 2; "~R3H 3; ETr'SEVEn; Tdx PPB; XXA 
STA PB/2; STX PPb; LDx DF 01 

DFQ8 LDA PPT3,g; MR j PLMSK 

COPY A^.xA; LDa UTTY 

* PF6RK IN 3, PACT PTR J *>* A 

SkE TT YASG*£; Li R g .*+£• STB TlYAS_G#p (PROPAGATE RJB6UT t.UPi ) 

* PUT PFWRK IN Xi PD0WN(PF6RK) IN A 

CBX; LDA PPTR/2; RSH 12; S<E DFQlJ BRM MSNCR 
. CQPY XL#AX 

* LAST FfjRt 6N PDOrtN Tb BE CLEARED* PUT PF9RK IN x> PACT PTR IN B 

XX^; LDA PPTR/2; CfR PRtfSKi STA PPTR,2# C8PY BX/dA 

* PUT PACT ENTRY ON FPLST 
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DFQ1 



ADD sPPlK; xMA FPLoT; STA PPTR/2j BRR DFK 



# SEARCH Su-jSIOIAKY F^RK STRUCTURE F6R SPECIFIED F6RK 

* SkIH IF PRESENT/ Ha Sk IP IF T ERMINATE D 



SHFK 



ZR'J; LuA PPTR/2; SKA PLMSK; BRU #+2; BRR SHFK; RSH 1? 
CAx; LCA PfAB/2; E0R SSQl; SKA ADMSKj BRR SHFK 

MJN SHFK; tRR SHFK 



* SCAN FORK.. STRUCTURE AND OPERATE 

* A« OPERATION 

* x* PACPT R 

THE "8PE RATI 3N SPEC* ' BY A Ys "cALLED WITH CORRECT PACPTR IN x 



* 
SCFK 



PERFSR--S 3P F0R ALL L8WER AND PARALLEL FQRKSt 
ZR6; STA SCFQ1; STd SCFQ2; STX SCF03; CXA 



* SCAN TO L9CAL "• J8TT9M» 
SCFC6 SKN PPTk#2; bRU SCFQ7 

LDA PPTR,2; RSH 12; CAX; BRU SCF06 



SCF07 CXA;"S<E SCF03j BRu SCFQ5 B PAGE 28 

9 * PERF8RM OP AMD EXIT 

_Mil»-S.CFQli LDL SCF02; LDX ScFQ3i BRR SCFK 
* PERFQRM 8P AND 38 »w»P» 

# SCF05 LDA PPTR#2; MRQ PLMSK; STA SCFQ*; BRM# SCFOlJ LDX SCFQ4; BRU SCF07 
SCF01 ZR6 C OPERATION 






SCFOa ZRU C STATUS *tf*D 
SCF03 zRy PACPTK 

SCF04 7P^ 



# 

* TERMINATE F6RK STRUCTURE 

» INPUT: x»PA.£PJ_5...6|F.. Le.wER.FORK# A-uUEUE* ..Bi&IAT-US .WORD 

* OUTPUT; A*7FQ6*PACP7R FbR NE* F3R*# X«TFQ5»tUEUF F8R NEW FQRK 

TFK ZR6 
STA TFCri; 3Tb TF12; STX TFQl 



IF ST 

# D1R; SKN STSw; BRu "TFKA 

IDA = RSR ; i-RM RLAdE'Lj dRM SSS 

• 3 ji>-3 
4 L.TTY 



6 PAGE* 
# 8 PPTEST 

a FTES T 3 

106 TFoi 

# 7 u^asv 

1 KEAU , 



LDX TFOI 

# tfka ejr 



ENPF 

LOB TF12; LDA PPTR/2; 3TA TFolj LDA P7AB#2j STA TFQ6 
• LDA »DF<; t-RM 3CFK; LDA 7FQ1; 3TX TFQli SKA PRMSkj BRU TFQ2 

* EXEC T SP-lEVEl PANIC 

LDA TFIO; STA PTEST*2; SKN XPBi bRI* Me NCR 
% LDX XP3; LDA UEXL6; STX TFQ7 

STA. ?xra (Save status) % ldx tfui 

LDA TFCOl; XMA PL*2; STA TFCo2i MIn TFC02 



BRU TFQ9 
* ORDINARY PANIC 






o 



TFQ2 MRG PLMSK; CSPY Ax*A8; LDA PlM # H, RSH 3; ETR SEVEN.; STA TF07 

CxB 
* DISMISS ED 6NI ACT* Ct'NOt 7 

IDA TF13J STA PTEST>2; MjN PL/2 

SKN KPBj BRM M8NCR; LDX TF07 

LD A TF06^ ETR ADMSKJ STA PA#g; LPA SCFQ2 
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TF09 

$TFC1 

TFia 

TFlO 80b 

TFj3 21 b 

TF05 IntO 

$TF06 ZkO 

TFQ7 ZHf. 

TFC01 Zfcf: 

TFCC2 ZR6 

B^S94 dR^ 



STA Px#2i CEiX 

CxA; STa TF06; LDX TFQSi 

PACPMb ExEC PANIC 



bKR TFK 



.^ACDMtf ORDINARY PANIC.. 

ivJfc'UE F9R UEd FORK 

PA!ilC table address 

.0. . . . Fy*K NgM&ER.FCjR H I gh£ R ..„F8.RK.. 
ExECPj h 

PL DEFINE IT BECAME ExECPM 
TRAP pRS TO ESCAPE EXEC 






* READ Fd^K STATUS 

» INP gT; b = STATuSj x = FACPT.R QF FQ.R.K . .1.3 ..B.E ..READ. 



RFK 2R9; LDA PIM#2i E8R «3006; Ska «300Bj bRU RF12 (N8T ExEC B*S) 

LDA PPTR/2; mrg PL^SK; CAx 
RF12 UP A «RF06; BRM SCFk 



LDX JBcs; SIX SV,J6B> LDX .NC^EMi CLAB; BRM SWAPI 
LFO 1 LA-3&.L 

LP'-. SCf- '.)£ I LDx SCF03j uRR.RFk 



♦ INPUT; XsPACPTR 3F l&a'En fjR PARALLEL F6RK« 
RF06 ZRH _ 

ST>" RF~i)Z) Lbx"'"j"e6;"~ST"x""SwjQBj LDX "~RL3#2;~ CLAB 

uR. k : 3WAPI; BRM LABEL; LDX RFq8 

LD A ^L/2; SKA A 4; „qRU *♦?; LDA SMSPT; STA RF14 



RF10 



CXA; FOR 3CFQ3; SKA ADMSK; BRU PF1C 

LDb SCI-Q2; SKd Xf; BRU * + 2i bRU RF07 

LDA_PTEST,p ; 1TR AUMSKj LDB KM.u.SKE PACDMB; LDB KM2 

LDA Pl*,£i E9R *300b; SKA »3Q0p; BRU **3j CXA; BRU RFll (EXEQ BRS) 



RF07 

LDA PRTR/2; SKA PRMSk; BRU **2i CXA (TeP^LEVEL ExEC) 
RFH MRo PL-^Srv; 3TA «F13j STfcj *Fi7 









RFQ3 



RF % 6 



ETR 

LDx 
STx 



IDA PIM,2; RSH 3; ETR SEVEN; STA RF15 
UDA PTAB/2; ETR ADMSK; MRQ X4; STA RF08 
C*A; ADD RFCOlj STA RF16; IDA RF08 

■ 3<*000b; LRSH.Hj MUL THREE 

RF13; IDA RL1V2; LDX RL2#2; XXB; RCY 18; LCY 0#2 

RF33 

<77; S«.E ZERO; BRU # + 2; 6RR RF06 

RF32 

THREE; STb RFQ2; LDB 326; STB *™ 

jBb; STb SA'JQBi CLB; RCY o,2; LCY 18 

■NCMEM; STA RFRLl; STB RFRU2i STX RFRL3 

S.WAPRj___i3R.g. RFQ4. (PANIC TABLE.. PAGE AND TS) 

LABEL, 

*F3?; ADD PMTjOB; DIR; BRK *; EIR; LDX RF33 

.^.Rkli_LDA^RKLHi LQY.6/2L..XTR «7_7 7 7 7 7 3.7B 

6/2; LDX RHL3; XAB; BRM LApEL 
RF14; STA* RFQ&; MlN RF08 (SAVE PL) 
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ETR 
STA 

_Lpvw 

LDB 
LDX 

_BRM 

bR v - 
LDA 

LD B 



RCY 



_kDX__.?f.l.5i_LpA. PA >. 2i_STA# RF.Q8; MLN. RFQ.8 
LDA PB/2; 3TA# RFQ&; MlN RFQ8 
LDA PX/2; OTA* RFQtii MlN RFG*; LDX KM2 
LP* PL^2; STA* RFuS; ^IN RFq8; &Rx **1 



LDA RF17; STA* RFQa 

* RELEASE PANIC TABLE AND TS BLBCK 

LDX JQB; LDA PMTP#2; APD_ i-NcMEMj STA REIPG3... 

LDA X4; STA RELPS6; LDA RFULlj LD3 RFRL2; LDX RFRL3 

bR>- REL'UM. i?RR RF06 

# CAN'T READJ_A_NIC TABLE PAGE 

RFu2;" bRU * + 2; BRRRF06 ~ " 

RF^Ll; LDa RFRU2; LDX RFRLS; BRU RF03 



RFCA 

RFQ2 
RFQ8 " 
RP13 
RF14 

RF15 
RF17 
RF32 

RF33 

RFC01 

RFRLl 



SkR 
LDA 

ZRP 

ZR6 

ZRS 

2R0 
LDA 

iLRZ 



READ ERROR RETRY COUNT 



PB P6 INTER OF 
STATUS wQRQ 



FORK TO rtEAD 






w . .. . . . . .. . 

D 

PL4/? 
_Q PANI C T ABL E AND TS BUCK. RE LABELING 



On n 

RFRL2 ZM B PAGE 31 

RFRU3 ZKD 

XL, 

* BRS~5" START SUBSIDIARY FQRK 

* INPUT: SSQluA.SlTS + PANIC TABLE: ADDRESS 

* B ITS ; Q«ExEC* 1*PANIC TA6LE REL»# 2«PR©Pf RUB8UT 

* 3-FJxEO ME"MQRY# 4*L8CAL MEMORY* 5*SU6SYSTEM STATUS 

* bsSYSTEi'1 STATUS/ 7*SuB3YSTEM INDEX 
FKST 3KN PIM#H; bRU * + 2; TRAP 46 



ETR <3777; ADO Six; SKA K400Q; TRAP 47 (PANIC TABLE 8VERLAP) 

DIR; L'jGo b7b/XPB; EIR 

LPA SSpl; oRM SHFK; BRu » + 2; TRAP 4S .....( TR.I E.P ...T? RESTART SAME FORK.) 

LDA NFSRk; SKG ZERt: ; TRAP 49 

b«- v jFk; 6K^ F*ST* (DISMISS yNTIL PACT SLOT FREE); BRM STFK 

CLb; l:;a sso i; ska X4; qku Fk2o (Exec status) 

FK24 SKA <4BB; oRU FK21 
FK25 SKA <lb6i u>RU FK22 
FK23 STA S Scli STB FK Q9A 

LDX F«G4; LD6 SSOl, IDA PIM.*2 

SK£. X4; MRQ K400; SKB K4B5; MRG K.2C0; SKB K4B6 
MKo X4; STA P I Mljl?..... . 

CbA; ETR ADMSK; LRSH 15; LDA j8Bi LSH 15 

SKb <2b6; MRG X4; SKB K1B6 

.MR.M X2; '1RG XI; . 3TA.. PT.A.d#..2.. 



* PROPAGATE TTYmSG D0*N IF CALLED FUR AND FORK HAS TTYASG 

LDA W TTY^ SKG KM1; cR'J FKQ7A 
CAx; L ';a PACPTR; S^E TTYASG*^; bRiJ FKQ7A 

LDA Fk:j4; SKB xl; STA ffYASG*2 
FKQ7A LDX PACPTR; LDA SSOl; SkA X2; oRU FKOb 

LDA RL1#2; LDo RL2*2 



LDX FkG'JA; 6RM SCRu; BRU FkQ&B; LDX PACPTR 
LDA RL1/2; LDB RL2*2 
* STORE RELABELLING* INITIAL A,B*X*L 



FKQ9 LDX FKC4; STA RL1*2; STB RL2*2; LDX SSQ1 

LDA 2*6; L'Jb 3*6; LOX STFK2; STA ?b*2i STB PX*2 

LD> SSOl; _LL)_A 1*6; LDX STFK2; STA pA*2 

LD>. SSOl; LDA *Mlj STA 6*6 (SET STATUS WD T6 RUNNING) 
LUA j, 6; ETR «50Q37777b; SKN 0; bRU * + 2; MRG X4 
LOX FK04; STA PL* 2 



• 



LDB •700Q06B; D RM FKGO 

* PICK UP RELABELLING FR8M PANIC TABLE 

FK08 CAX; LDA 4/6j LDB 5/6; LDX FKQ9A 

BR'' SCRL; bRU FKQSu; LDx SSOl; LDA 4/6; 
FK08B LDx FK04; l,RM DFK; TRAP 50 

* DISMISS UNTIL PACT SL8T IS RELEASED 
FKSTW LDc aFPLKT; LDx = uTI; bRU NPfcPDS 

FKPC SKN EXECS; BRU * + <f; MRG «4H65* LOB X7 
BRU Fk23; CTR k357>. BRU FK24 

liRU * + **; MRG -14B5j LDB X3 

dRu Fk25 
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LDB 5/6; BRU FK09 



FK21 
FKgg 



FK09A 



SKN syss 

BRU FKg-.i; ETR *37377777Bi 

.SK_\ LxiXl; _&RU.*+3/ LDJi X.U bRk....fK23 

ETR *3f.ri77777$i BRU Fk?3 

ZRS oToRAGE F9R RELABELLING STATUS 



* 09 N8T DISMISS tXEC BRS ANp BRS 9 F^RKS* 
FKGB IR«} LDx PACPTR; STB PTEST/2 



0; ETR •50037777B; *KA PL/£; ETR .77^5; ADM PL/2 
xP D ; l3RM Mb NCR; LDX XPB; LDA SSQP; ST A PB/ 2 
SSOl; 3TA FA, 2; LDA SSQ3j STA FX # 2; BRM FKG©3 



FKG82 



LDi 

LDA 

U<Q33__£K- 

LDx SfFKc; LDA PA/^ ; STA SSOl; LDA PB/2; STA SS02 

LDA PX/2; STA SS03; SRM FKGQp 

ZR? 5 ; LDA KMU STA PNTERM 

LDX PACPTR, LDA RL1/2; LDB Rl2/2 

LDX FK04; xMA *L1#2; STA STKLli CbA; XMA RL2/2 

STA_STRL2; STx PACPTR; STx PuPAC 

SkR PL/ 2; N3P; SKN PACJ&b; bRU *+2; STX PACDMP 

LDA »l#2; STA j; &RM STSTAT 

LDA PM^j LRSH 3;.E_TR SEVEN i M_R.G X4l.__.STA. X_PB 

LDx jtju} DIR; LDA n~Nft/2; ~ET« ■77776077B; STA TTn6/2 

EIR; LDx PACPTR; LDA .70000XB; STA PTEST#2 

LDA STRL l; LD b ST«u2 



DIR; LGGG ?0B/FKG8; L9GG 20b, PACPTR; EIR; BRU STRLG 
* 

# BRS 31 

« WAIT FOR SPECIF I'ED'T 6Rk T6~ TERMJ NATL 

# INPUT; A*PAMC TABLE AQDKt 

# OUTPUT: x=STATUS 












FKWT BRM SHFK; t,RU FKQ1; E3RM M8NCR 

FKHT1 STB PACDMSj BRU P0PST 

FKQl LDX SSQl; IDA *,6; STA S$03; BRU P6PX 
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» PROGRA MMED INTERRUPT uOolC 

# 

* 3RS 49 RF.AD InTRRuPTS 

SRIR IDA P y^t; ETR ^377770006; UjX. SS03i bRU XP8P 






» BRS 78 ARM l.iTERRPUTS 

SAIR ETR -37770008; SkN SYSS; ETR »i776C00B 

XMA PJM/?; ETR .740007776; ADM PJMj2; BRU P®P* 



# B^S 135 INTERRUPT AFTER A SPECIFIED TIME, 
$WETT3 IRQ M8VE 16 SYMS SOMETIME 

ENDBRS ESS Q _ 

FtfRuET 
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, . ... .... — ^g^^ - - - iJta(F 

IDEM 72-W 6/21/72 15:09 PAGE 

LISTM 



#QUE STRUCTURE 

* THERE ARE READ QUES/ SPACE QuES/ AND CLEAR QUES THAT HAVE 2 W8RD 
_* BLdC<5 CHAINED LIKE PgCTtTHE SECOND WORD C8NTAJNS THE INTERESTING 

* DATA* BHS 1-8 TELL WHICH CELLS SHBUID BE SKIP REDUCED WHEN A 

* DL8C< IS READ* THE APRS F8RTJ8N 6F THE DATA W8RD C8NTAJNS A PMT 
_*_ APRS* RACHH STARTS THE READ/SPACE, AND CLEAR QUES* THEY ARE 

* "INTERLEAVED* EACH ^UE ENDS WITH A P8INTER T8 A *1» 

* THE WRITE „UE AND THE EXPENDABLE BL8CK QUE MAY HAVE ENTRIES 
j* REEVED OH ADDED EASILY* THE BLOCK NUMBER TQ THE RJGHT 9F 

* EL6C< X ON THE WRITE QUE IS AT RMR+XNUMBER T8 THE RIGHT 8F 

* bLec< X 8N THE WRITE QUE IS AT RMR+X* THE LEFT END 8F THE WRITE 
* vUE '3F.jI^o AT -^MR+40 aHICH SAYS 41 IF THE QUE IS EMPTY* THE 

* RIGHT END 6F JHE *RITE QUE STARTS AT RML +41* THE BEGINNING 

* 8F THE EAPENDIbLES IS AT RMLMU* 



SG^ Eyu -1;* INSTALL EMPTy 3*JTCh FOR SPEED 

B U G 1 E Q 'J 1 

SAFE EQU 1 """"'"" "'"""" 

SN EQU UB5;* V13D/ UC»0 

_S$ EaU_lB5;*_v*AlTINQ FOR C9RE Bu8CK# iJC IN PMT 

SC EQv, S8b;* IN C'JRE/ uC IN RMC 
SD EQU 3BB;* £N RAD/ UCiQ 

SB Euu _Mr_5;_*. jjit»TH_C f iRE AND RAD/ UC IN RMC. 

SWQ Egu SB r >;* &N WRITE UUEUE/ UC.Q 

SW F-C^ 6Eb;* f'XlNG WRITTEN* UC»Q 

SRQ Ew 7Bb;« UN READ .^UEUEj U C IN PMT _ 

SR EG- io-JS;* BEING READ/ UC IN RMC 

SE EQU 1185;* C3RE AND RAD BUT C8RE EXPENDABLE/ UC*Q 

SI Eul 12BSj» I NDIRECT 

SCQ "EQVT3b5'iV~ w AITIN'G"'Td HAVE TfS~CBRE BL9CK~ CLEARED/ UC IN RMC 
SWCT MAC*8; LUX BjQb; MIN SWPCNT/2; MIN SSwCj ENDM 
L-9GG MACRft; ENDM 

$RA"I1 ZR f -; DIR; SKS* 10026d; BKU *-li* READY TEST 
KASW E8D J0026Bi* SOMETIMES BRU RaS^A 
P5T RADDR;* RAD ADDRESS 



SKS* 11026&; MIN RDER;# RAP ERR8R 
SKS* HOOOtH; MIN RCER;# CHANNEL ERR9R 

$RADI A __D* _lQ__Q0b 

RAQIF E8D I5200bi P8T CADD;* C8RE ADDRESS 

RADIG EftD 8266»i#- WR!TE(SdMETIMES 2226 F6R READ.) 

STA RAA; STB RABi $Tx RAX 
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IDA 

" SkX" 

ADM 

LDA 

LD^ 

RAS^uX LDA 

ADD 



RASWB 




LDA RADDR; LDB K40; SKB RADlG; MRG K4B7; XMA RADDRC; STA RADRCC 
LDA CADD; STA CADDC 

«6j0p; XMA RRL3; LRR3; POT RRL3; STA RARLX 

RAb&L; bRu RAlITj MIN RAb8L; LPA KM1 

RAD IF; LDA »3Q003500b; AQM CADD 

s3bb#__ADM RADDR 

<kiji" GkA RADIG7 5RU FIxCh " 

RDER; ADM RCj LDA RCER; ADM RC; ApM RS; SUB ONE 

RDER; STA fi A P S T S 

<M"l; i3Kij # + 2; »RU RASw»; LDA RADRCC; BRM RAREW 

PAGES 

gACU R; 6R.U * + 2__.bRU_.RA£.XX;* THEREL_MS...Ne PREVIOUS. . . . 

FUSE IT WAS AijAND8NED» 

RACUR; LDX RMT#2j L8Q3 5#L9GX 

_kACUk; LDA* RMT#2; LDB *77o$i SKM *SR; BRU RAEIrt 

# THIS CLEANS UP A READ. 
LOA ?S6-SR; ADM* RMT,2; LDB* RMT#2 

CxA; M R3 «RSP*<?4; MLABEL 

LS U 19; ET* k'777; CAX; LSH 7j lOR RAERT,2; ETR KM200 

# E&R RAEWTiE; uSH 7; LDB =777776006; SKM* RACKWD; BRU RARE 
LDA RAF-H#_; EUR* RACKED; ETk *M£Qo; EQR* RACKUD; STA* RACKWD 

RAERX - XDA~RARTi' EK~M"raP8_Tj SKN RAPSTSj" BRU~» + 2; BRU RAEXX 

# LDA »2D6Q0ci; STA RRL3; LRRJ; POT RRL3 

_______ ___ R_ACUR;_LDA *SD-SB; AQM* kMT/2; LPA *__?; gRM RAINS 

LDA <Mi; STA RMT/2; D RU RAEXx 

FIXCH SKN RACURx; BRU * + 2; BRU RASwB; LDA RACURX; ADM RRL3; LRR3 
_______POT R_RL3; LDB RACHKWj STfc:* RACKWD; BRU RASWBX 

RARE MIN RAPSTS; m[n RA; 3RM RAREw 
LDA* RACKWD; BRM RAKEW; bRU RAERX 

RAREW ZR S; STA# RAERLP; MIN RAERLP; 5KR RAERCT; BRR RAREW 

IDA ,19; STA RAERCT; LDA <=RA£RL; STA RAERLP; BRR RAREW 
£ $RAERL faSS 20 

RAERLP DATA RAEKL 



© 



o 



o 



WffV 



o 



o 






RAERCT DATA 19 

*THIS CLEANS UP A aRITE* 

RAEw EQu * 

IF SAFE; SKM «SW; oRM K8NCR; E^DF 

SkN RMC#2; bRM M3NCR 

IDA RACUK; STA # + 2; BRM RARUSj ZRQ 

LDA RACURX; STa RACUR; LPA RARtMXi STA RARN 



PAGE 



PAEXX 
RAEX 



CLA; STA RDER; STA RCER; LDA k>U; STA RAPSTS 
LDA_RARLa; STA RRL3; L.RR3J PUT RRL3 

LDA RAA; LUb RAb; LDX RAX; ElRj BRI RAll 
RASWA STA RAA; STB RAB; STX RAX 

U^A ...sfQO^i^xMA. RRLJ.; L.KR3; P8.T. RRL3; STA RA.RIX 

MI- RAbdL; LDA RAxEOD; STA RAS*; BRU RASWB 
RAP8ST iH?i EAx 7; ETR »377B5; CLB 
RALQ9P SK f 2ER3^_L RU * + 2; BRR RAP3ST; N8D 1,2; SKN RAPSTS; MIN RAER8R#2 

s*P RAj3b,P; BRU" RALL; E8~M 2240GB 



SKR 
IF 



DDIFP 

i/lTF ... 
* + 1. 



RALL 
RALIT 



t3Ko 

ELSE 

_LDb JQb; STB_UMTj8t>; CLB 
ENDF 
SUB X2; 



m^ RAL$6P 



SkR RABOl; BRM M3NCR 



RALITX bR w RASS> L5 RM RA8S 

CLA; STA RaW6Rk; LDA kMI; STa RACURX 

Lp* _RA!vaP; STA RAS*; BRU RAEx 

LDA RAPh) E8R TW0; STA~~RAPH 



RASS ZR£ 



CAX; ADD RARLPH; ETR THREE; CAo; LDA RML32 
S kE *33; dRU * + 2i BRU RAN8CR; _CLA_ 

SkE RARHP # ;>; BRU RAQ6H; XX~B; SKE RARHP#2j BR _ U RAG8H; XXB 
RARLP#2; BRU RAGttL; XXB; SKE RARLP/2J SRU RAG8L; XXB 



>Kw 



RAN6CR LDA RML 33; SkE = 32; tfRU * + 2; j^RR RASS;' LDA " B.NEj STA*RAWSCi CLA 
RANCX RPT (J=0#7); SkE RaFR+j*4#2; B*M RAGS; ENQR 

XXb; S<R RA^SC; BRU RANCX; 8RR RASS 
RAQ8H SKR RARHP/g; BRU RAJ 



RAG8L 

RAJ 



SkR RARLP#2 

STX RAPH; LDX RML32; BR>1 RADELj SKN RMT#2; BRU # + 2; BRU RAAv 

IF SAFE ; LDA* RMT,£; £TR «77b5; S.K.E __« SU..-BRM ttftNCRj.. ENPF. . _ 



LDA *SD~SE; ADM* RMT*2 

RAAV SIX RACURX; CXb; LDX RAPH; LDX RACHH,2; LDA 1#2j STA RARNX 

XXB; ETR AUMSKj STA RMT # 2; XXA; LDX 0#2; XXAj ETR K37 

STA RMO?; XXB; IDA RARFQ; XMA 0#2; MIN RPAGE 

STX RARF*; LDX RAPH; STA RACHH#2j C9PY BX>B; IDX RMT,2 

IF. SAFE; .IDA Q,2; ETR *77BS>; S<E »SRQ; BRM M9NCR; ENQF 

LuJA Oj?-:; ETR «377*Jbj STA RAuDR; IDA RARE9D; STA RADIG 
LDA KACUkx; ETR K30; LSH 2; ADD RAE9DR; STA RADIF 

LDA ..._C#2;._ETR_ «77ci5; SKE *SRQ; uRM M9NQR 

LDA RACURX; ADD *SR; E$R Q # 2j ETR *7700037B 

EOR U,2; STA Q # 2; ETR SEVEN; LSH 11; ADD «64B6; STA CADD; bRU RAEXL 
RAGS ZRtt; STx RAPH; CXA; LDX RAijS) ADD -li£i SUB »RAFR; MJN PAGEW 

STA RATS; C&PY Ax*j;# THESE F I VE BITS ARE CABLED 'EFGHJ' 

LDA RAFR,2; EAx V6 i NQD 16; STa RATSA;* THESE BITS *ABCD' 
LDA_JtATSj_ rSH 5i... CaA; . SKa K2b.6l.._ADD K2Q;.. LSH 9 

ETR »37 7<*Oii; STA RADDR; LDX KATSA; LDA .777776008; ADM RASCT 
# RADDR New CONTAINS » JAdCDEFGHOUOOO » 
LSH_o,^;_LDX RATS; ADM RAFR#2;# TURN 8FF FREE BIT 

LDA RML33; ETR k3Q; LSH 2; ADD RAESP; STA PADIF 

LDA R^L33; ETR SEVEN; LSH 11; ADD *64B6; STA CADD 
LDx RML3J; SKN RMC*2j m^ MQ.yCR 
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t!RM RADEl; LDA RA*E8D; STA RaDIG; STx RACURX 

LDX RMT>2; LDA RADDR; E8R Qi2; ETR *37740B; E8R 0*2 

STA Q/?;*_RECQRD RAD ADDRESS In PMTt 

IF SAFE; ETR *77obi SkE «S*G1j BRM M9NCR; ENDF 

LDA sS^vSvn'^; ADM 0/2 
L DA RADDR ; RSH 5; CAX _ 

LDA RACURX; MRu *R5P*6^; MLAbEL 

MIN RAERT#2; LDA* RACKED J E6k RAERT/2 
ETR <M200i__E8W RAEN1#2j STA RAERT/2; ETR J<177 

RSH 2; .1RG RADDR; LSH 9; EtfR* RACKED; ETR KM?QQ 

E8R* RACKED; xMA* RACKED; §Ta RACHKW 
RAEXL L DX, RACUkx; LDx.KMT/2; L&GG .1.0* L_OGX; . BBU RAEX 

* RARELo ADDS uR DELETES BITS FROM THE RAD SPACE MAp* 
RAREL6 gRfi ; ETR S 7774QB; LCY 15; 3KB K20; ADD K2B6; XAB; ETR K17 
C&PY AX#A; RSH 19; STB RADTSj MIN RARELBj LDA* RARELB 
AD^ RASCT; LDB K200; LSH 0#2j LDX RADTS; SKB RAFR>2 
BRU * + 4; SkG ZER6; BRM MdNCR; bRU » + 4; SKG ZER6; BRU »+gj BRM MQNCR 



o 



u 



ADM RAFR/2; BRR RAREL6 
RADTS IRd 
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* RADEL DELETES THE BLOCK INDICATED IN x» 
RADEL ZHd 

STX RApTS; IF SAFE; CXA; LDX RML#2; SKE RMR # 2; BRM M0NCR 



CAX; LDX RMR#2i SKL RML/2; BkM M6NCR; CAx; ENDF; LDA RMR # 2 
LDX RMLic^; STA RMR,2j XXA; STA RML/2* LDx RADTS; BRR RADEL 



» RAINS INSERTS BuaCK X TQ THE LEFT 8F BUCK A, 
$RAINS zRO 

IF SAFE; cePY xti/Ax; LCA RMl* 2;_ XXA; SKE RMR#2J $RM MQNCR 



COPY BA/AX; ELSE; COPY aA,XB#Ax; ENDFj XMA RML#2 
XXA; 3Tb RnR>2; xXt>; STB RML*2; STA RMR#2; BRR RAjNS 



RAF9N ZR^i STB R^EXIT 

RAF9NX CAX; STX RAPMT; LDA o,?.i RSH IB; ETR K77j L^GG 7#L6GA 

IF SAFE; S^G aSI/lBbj pRU_* + Ex BRM M.e.NCR; ENDF 
ADD RAF ON; XXA; QR{, \,2 



INPUT; AePMT A ODRESS+BITS j«g; FLAG B.JJS FdR RAgSB BACKWARDS, 



-ITS? RAvi&tJU) GETS SKR *H£N JOB IS D8NE. IF RAJ©B(X) 

u^ES LT C# ARM UMT# CLEAR TIMEt 
SET SIGN.l FOR HJOH PRIORITY READ dH WRITEt 



$RFL £RO; L'KiG 0/L3GA; LDB REL; BRM riAFftN 

bR M M0KCR; BRU RARLS; BRU RARLG 
W- ^.CR; t>Ru K'ARLd; BRM MOinCR; BRM M^NCRx BRU RARLRQ 

bru ;.rarlk;. "BR;^M'$ftGR^W 

$RES ZRO; MI=M RES; L^G liLQGA; LDB RES; BRM RAFSN 
bRR RAExIfi_BRU RARLS; BKU RARBC 

B'K^ "-AXou; bKj RAR^B; t>Ro RARSrtyj ERU RARSW 

BRv RARSRQ; BRU RaRlR; BRU RARSE; BRU RARSI 
$S ZR^_.__L-3b £#L«LA_; LDB c; BRM RAF8N 

BRu RAlsN; BRU RAbS 

BRU RAdC; nRU RA3D; BRU RABC; BRU RA8WC*; BRU RABW 

BRw R_AbRy; BRU RABR; BRU RABE; BRU RAIND 

$^ Z^i "L^GG "*7l9GA; LD3~W; BRM RAF6N 

BRR RAExJT; BRM M0NCR 

BRR RAEXIT; b H^ ttpNCRj . B.R.U ._R A w B i 3R.U. . R A WWQj... J_R M . MO NCR 



iiRV M6NCR; BRM MONCR; BRM MdNCR; BRU RAIND 



R 
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RAIND Cc3X; LCY .. 9; ...CXA; RCY 9; 8RU RAFeNX 






* CALL HERE T3 RELINQUISH CQRE BL8CK TS SPACE QUEUE MEMBER BR 
» INSER T QN EXPENDABLE QUEUE. X_HAS CQRE BL9CK. 

* blsck ^ay sr may net have page in jt» 

RARLQS ZRS; mIn RaRLQS; CXS; LDX RASQH; SKN o#2i BRU RACL; LDA a 32 

Ct3M_S:Vi RilTf2; pRU * + 2;. BRU RARLQT 

CAbi LDA# RMT,2; ETR *70077777b; MRG *SEj STA# RMTj2j CBA 

SKN# RARLjS; LDA RMR33 

LP:.. B.'JGl. _ _._. 

RARLQT BR M RAl^S; LDB *77d5; LDA sl£B5 

SkN RMTic; SKM* RMT/2; BRR RaRLqS; BRM M9NCR 

ELSE 



RARLQT BRM RAINS; bRR RARLuT 

ENCF 
RACL LD A q,2; STA_RAS&H; LDA RACL^Hi £TA Qj.2j STX RACIQH 

LDX \,?i Cr,Aj ETR K37; ADD ■bCJi ESR 0#2; ETR KS7 

EtfR u,2; XMA 0/2; ETR *37; XxB 

STA R MC>2; BRM HARM; SKN RMT,£i &RU RAV8JD 



RAMARK CBA; ETR ADMSK; STA RMT#2; BRR RARLQS 

RAvaiD LDA* RMT/2; ETR *7QQ77777B; MRu «SD; STA# RMT,2; BRU RAMARK 

RARM ZRDi ARMJ ARM2_Qb; BRR RARM 

$RCL ; * CLEAR a PAGE:* This IS A 2Qj INTERRUPT* 
ARNI DIS20b 
_SXA_C_LLA; _STB CLLBi STX CLLX 
DIR; LDX RACLQH; SkN b/2i bRu CLG9; EIR 
LDA CLLA; LDB CLLb; LDX CLLXi BR I RCL 

CXA; X '^A RARFQ; xMA 0/ ci_ STA RACL_QH ; _LpX. _U_2 1 . . STX CLTS 

LQGG 4 # L<:) 3 a 

CXA; &RM RAP9ST; LDX CLTS; EIR; LDA 0»Zi LDB *77B5 

Sk>M sSCjg; bKM M8NCR; ADD «SC*SCg.j STA 0> ? j ETR K37 

>ma RR"L3; LRR3; POT RRL3; 3T~A CLTSA; LDX »-1000Bj CLA 

STA 35Q0CB/2; STA 360Q0B#2l STA 37Q00B#2; STA 0i2; BRX **4 



v.** \k» v« t 

CLGO 



LDA 



iCi 



* PMT ubL 
RAPUT ZR6; 



c kISA; _STA RRL3; LRR3; P6T RRL3; BRU CLLP 
TEST" 

CAX; LDA 0#2; SKA K37i BRU #+2; BRR RApgT 



SUB ONE; STA Q # 2; pRR RAExII 



G 






^^^^tk 






* GET A SlST IN THE O.UEUE AREA AND pgT RAPMT IN IT. 
RAQCS ZR8; LDX RARFQj SKN 0#2j BRU #*2; BRM M8NCR 

JLDA g#£j _STA RA.RFtf;. LD.A RApMy; STA \ t Zl BRR RAGQS 

RABC &RM RAZAP; MIN RMC#2; LDA RAPMT; BRM RAP8ST; BRR RAEXlT 

# RAQS FINDS WHICH READ QUEUE F:RQM A RAD ADDRESS 



PAGE 



RAQS 



ZR9; IPX RAPMTj LDb 0#2; CtAl 3KB K.4.Q* ADD TW8 

SKB <2u4; ADD ONE; bRR RAQS 



RARLS IH'1 RAPUT; LDX sRAS(*H; bRM Ra.qSH; BRM RARET; DATA SN.SS 

RARtC BR^ M RA2AP; SKR RMc/2; bRR RAtxIT 
LDA =33; SkN RAPMT; LDA RMK3? 

l.L_kUGl 

iJM^ RAINS; IF 3G; MIN RANE; ENjFj LDB »77B5; LDA *Q765 
SkE"* RNT,2# BRu * + a; BRM M8NCR; BRM RARET; DATA SWQ-SC 

FL3C 

bR* RAI Jb; IF OG; MIN RANE; LNDF; BRM RARET; DATA SWQ«»SC 

ENDF 

RARj^B S TA RARLbX+l; L,RM RAZAP; SKR RMC#.2.i 8_RR RAEXLT 
RARLBX bRM RARLu-S; ZRO; BRR RAEXlT 
IF -1 

RARLRQ bRM RAPU T; B^M RAQS; STA RATSAj ADD ■RACHHi C.AX; BRM RAQ3H 



IDA cRARHP; SKN 1#2; LDA sRARLP; ADD RATSA; CAX 

SKR 0#?; &RU * + 2; bRM mqnCRj BRM RARET; DATA SD*SRQ 
RARLR LD A RAPMT; LDB RAEaIT; SKR HRLRC; BRM MqnCR 

EIR; HLT; 01 R; MIN HRLRC; tiRU RAF8NX 
HRLRC DATA 40000001 B 

ELSE; RARLR EQU *jiR_ARLR^_dRM M8NCR; EN pF 
RARSC BRM"RARSTS7 LDX~~MPMT; LDA 0j2j" EIR X7| XMA 0*2 

ETR <37; CAX; LDA kM*; STA RMT*2j bRM RARLQS; DATA -i; BRR RAEXlT 
RARSD CAx; LDA q*2; ^RM RARELb;_DATA 200B; BPM RARET; DATA SN-SD 



RARS6 BRM RARSTS; LDX RAPMT; LDA 0#2i BRM RARELB; DATA 200B; BRU RARSC 
RARSTS 2R8; b^M RAZAPi UDA «-64| MIN RMC/2 

SKA_RMC#,?; _bRU* RAEaITj bRR RARSTS 

;w "BR"^. RA';S; ADD *RACHH; CAX; BRM RAQSHj LDX RAPMT 

LDA 0,2; c3RM RARELg; DATA 200B; BRM RARET; DATA SN*SRQ 



RARSwQ URM RAZAP; bRM RADEL; BRU RARSC 

RARSw . BRM RAAw; bRU RARSC 

RARSE BRM RAZAP; BRM RADELj BRU RARSy 






• 



RARSI CAx; IDA o*2; ETR X7; STA q,?; BRR RAEXlT 

RABS EAX RASljH; BRU PlGCiY 

RA6N BR M RAGQb; LDA «32i S«E RMR33; BRU RAGT; CXA; XMA RASQH 

STA 0/2; LUX RAPMTj LDA Q,2} ETR X7; ADD *SS; STA 0#2 

BRR RAEXlT 
RAGT CXAi x M A RACLUHj STA . #2i BRM RARM; LDX RML32; BRM RADEL 

Cxti; SK A J RMT/2; bRO RAGTX 
RAGTY LDX RAPMT 

LDA 0#p; ETR XZi. A.l;D..-S.Cflx..Cy.P_Y..bAj».£i STA 0# 2 

COPY B/BX/XA; STB RMC,2j ETR ADMSK; STA RMT/2; BRR RAEXlT 
RAGTX LDA* RMT,2, ETR *77B5; SKE *SE; BRM M0NCR 

LDA cSD-SE; ADM* RMT,2; BRw RAjTY 



PAGE 



RABD 



RA8D1 



RABD2 



M|N# RFR; CAx; LDA 0,2; ETR -777777408J STA 0,2 

IF' 3.j; MIM KANE; E<*DF 

BR:' RA'^;__$Tx RAT;.; bRM RAQS; CAXll LQA RATS 

SKN- RAPMT; fcjRU RABDl; MIN RARHP/2; XMA RACHH,? 

LOX RATS; MIN RPAGEHj BRU RAbD2 

MJN RARLP^c:; EAx RACHH, 2; STx RATS; LQX 0*2 



STA 



0/2; BRU *-3; bTA* RATS; XxAj MIN RPAGFL 



^ t c 



IP qT ; S*,N STSv»; bR.0 RAAL; Li.; A aRSR 

BR^""RL.ABLL; bRMSSS/2 «6B5+3; 2 RAPMT; 1 RFR 
RAAL EQU *; E^OF i 3*CT; bRM RARETj DATA SRQ-SD 
RAZAP Z RO; LDX RAPMT; LDA 0,2; ETR K37; CAX; BRR RAZAP 
RARET ZW:; MIN RARET; LDa RAPMT; LDA* RARrj; ADM 0/2; «RR RAEXlT 
* DELETE ENTRY FRf;M QUEUE AND RETURN *ITH X POINTING TQ IT. 
RA.gSH ZR6; LDA RAPMT; LDo A[)MS* 
RAQSHl STX RATS; LDX ;uZ 

SkN 0,2; BRU *+2; pRM M3NCR; S*M 1/2; LRU RAQSHl 

LUB 0/2; STb* RATS; LDB RARFu; STB 0/2; STx RARFQ; BRR RAQSH 



RAB^G 
RABW 

RA8RQ 

RABR 



DM 



RABE 



bK-i RAZAP; MIN RMC/2; BRM RAqEL 

LDA RAPIST; BRM RApeST; SWCT; BRM RARET; DATA SC»SWQ 

BRM RAAWj LD A RAPM T; BRM RAPQST; BRM KAZAP 

LDA "pSC-Sw; APM* RrlfVsj MIN kMC>2; SWCT; RRR RAEXlT" 

bRM RAi.,3; ADD .RACHHj CAx; BRU PIGGY 

U?c3 _ADKSK;_ CLXj SKM RARN; EAx 1; ETR *377B5; CAB 

ETR RARN/2; XAy; MRG RARN,2; STA RARN,2; LDX RACUR/2 

MIN RMC2; CBA; BRM RAP9ST; BRR RAEXlT 

SRM RAZAP; MIn RMC/2; 6RM RApE u ; LDA . RAP.MTj... BRM. RAP8STJ. SWCT 



o 



o 



o 












BRM RAk'ET; DATA SB-SE 

PIGGY LDB ADMSK; IDA RAPMT 

MlIE L£*_£ll21_._5KN Qs2i uRu »+2i bRM MGNCRj SKM 1/2; BRU BUMP 

ETR *377B5; CAB; ETR 1/2; XA b ; MRG 1 # 2# STA 1,2 
CAX; MIN 0/2; CBA; SKA KMU BRM RAPflST; BRR RAEXIT 
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RAWb CAX; LDA Q # 2; D RM RARELB; DATA ?00B; BRM RARET; DATA SC-SB 
RAWWG bR-t RAZAP; BRM KADELj BRM RAkET; DATA SOSWQ 
RAAI* ZR&; CAX; uDA Q,a ; &TR K37; SK* RAB8L; 8RU RAAfcB 



SKt RACUR; bRU RAA*A; LDB KMg; STB RACUR; BRU RAAWX 
RAAtoA SkE RACURx; BRM M8,nCR; LDB KM3j STB RACURX 
__ XMA..RB.L3J. k«R3i.. P9T RRL3; LDb R.ACHKW* SJ.13#._.RACKWD 

STA RRL3* LRR3i POT RRL3; BRu RAAWX 
RAAwB SkE RACuR; bRM MQNCRj LDb KM^; STB RACURj STB RACURX 
RAAWX LDA p,g; BRM RARELb; DATA .J£G (}&;.__ BRR R.AAW 



$RADI2 iRdi BR^ MUNCR 

$DRAG8 Equ # 

$RAG8 IR d; IF^SG; SKj< RA^E; bRU RAGBi; _BR* RAGS 



RAG81 
RAQ1 



RAZ 



"RAIT 



LDA <Ml; STA RANC; ENDF 

LOGG 6/ REAL # SkN RmVySRK; £JRU RAQl; BRR RAGO 

Lu^__<^l± STA R_AW0RX; _LPA *&_GGBA X.MA RRL3j STA RAQRL 

LRR3; P8T RRL3i SKN RAB3L; BRU RAZ 

LDA RAxE3D; STA RASw 

1M_»±3;.._§TA_ RAEx; BRU RALlTx; .BRU- .RAZZ 

E'UD H)c3bb» Pl\ RATS; EQp 12226b 

p{\ RAT3A; LDA RATS; SvB RATSA; CAB; LDA ONEj SKB K4Q 

_CNA^ STA RARLPH; .C.AXi_.LLUs..RATS.i SK£L.K4.Qj EAX 1#2 

LDb RATSa; SKB K**Qi EAX 4/2; LDA RAPHTB+1/2; STA RARH 
LDA #43; STA RAEX; BRU RALlTj ^RU * + l 
LDA »^ 3; STA RAEX; BRU RAJl+u _BRU__#«Ll 
LDA SIDAk; STA KA'Ex 

LDA RAGRLi STA RRl3; LRR3; PC?T RRL3 
6RP RAG9 



SLDAR LDA RARLX 

RAGRL ■ ZRe < 

RARHT B DATA p, \, u 2/ 3_/ 2/ 0/ 3 



L & G X X 



IF AL6G 
DATA 7a 



* 



L8GP 
$L9GA 

$L6GB 



DATA -1 
2M 



R 
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$L8GX Z^8 
$L9Ga STA L8G 



$L6G9 



RACHK* 

RAN9P 



IN U8G 

Aj. STB L.0G&J 5TX 19QX 
LDA RRL3; XMA LBGXx; sTA RRL3; LRR3; POT RRL3 
LDx LOG; EAx* 0/2; LDA 0/2; EOR* LPG; ETR KS5; EQR# LOG 
_LCY_3;_ Li;p REAi,i RCY .. 3i ...IPX LOGPi STA ELDATA,2 
BRx #+£; LDX ELDATA; six L8GP; LDA RRL3; X^A L9GXX 
MLAt>EL; LDA LttGAi LDb LQGBi LDX L$GX 
.BRR...LBG .... 
~E~NDF 
&SS 1. 



d^i 



RA 



C> W / \ 



RAE0D E8D 15r:0lb 

RAEQDR E9D X5c'01B#4 
RAWE9D EOD Pg66b 



RARE6D 


E8D 


a?c 


!6i,; 




RA.XE6D 


ZQZ 


1 rv 


,86 


B 


RARLX 


& O V> 


1 







RASCT bSS 
RAWSC bSS 1 
RAPMT BSS 



RATS 
RAT3A 

RAwQRK 



bSS 



RARLPH 
RAPH 

RACUR 

RACURx 

RARHP 
RARLP 



rel'at I've phase c?f raqsV 



CH&ICE OF RAD AND ANGLE dF CURRENT jQBt 

* .C.UR.RENT..PAQL 



\i* H^LDS ARGUMENT DURING CALLS T0 RES# REL/ AND W 

.1 
1 

hSS_±±±_0 r;E.ANG RAD. .CHANNEL I..D.LL? ..r.i MEANS. BUSY. 

bSS I;* 

bSS I;* 
_DaTa _-i, 

oSi );* PAGE ABftuT Ta START, 
bSS 4;* HIGH PRIORITY READ COUNTS 
. BSS <♦;* L&* PRIORITY READ C9UNTS 

RACHH DXfX"'"i<Mi' / «-i/«»'i7«*i7* READ QUEUE H EAD 

$RPAGEh z%ti 

SRPAGEL zZti 

*RAHR RPT~"3'£7 DATA " 377 77660B; "ENQRj* BIT MAR 9F RAD 

RAB9L BSS 1;* «\ DURING LITTLE PART. 

RADDR BSS 1 









o 



CAOD 
RAA 

RAB 



C6RE ADDRESS 



RAX bSS 

9 RASQH ZRd 

RACLQH ZR 6 

RAEXIT BSS 
9 RARFG 

RARL 



RARNX uSS 



BSS 1 ; # 

BSS 1 

r\ (•» C ' 1 

I 

1 
DATA RAR:.^; 

BSS 1;* 

1;* IMPENDING 



R 
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SPACE QUEUE HEAD 
CLEAR QUEUE HEAD 



RARN 
RARN 
$ARM2Qb DATA 202000B 



SDTS205 DATA ?>7S777t 
CLLA <rRS 

CLL b ZRd 

CLLX ZR?"~ 
CLTS ZRO 
CLTSA ZRPJ 



* FREE LIST HEAD* 
MTA #+2i ZR6; ENOR; DATA KMJ; £R8;* READ QUEUE SPACE* 
CURRENT READ PMT P8INTER 
i » f 
..ARM 205 
DISARM 2QB 



n c c: 



$RMT bob 
$RMC BSS 
$ERMC bSS 



NMEM 



RML 


BSS NME* 


RML32 


ZR3 33 


RML33 


ZRS 32 



R*R 
RMR32 



bSS NME'i 



ZRe 

ZRf> 



32 



RAPSTS ZR5;# ERR8R SENTINEL F8R RAP8STV 
RCER ZR& 

ROER ZRfi 



$RFR ZR8 
RACKED ZHti 340003 
IF S G_ 
"• 1 ; 



RANE 



* -\8T EMPTY SWITCH 



DATA 

ENDF 

RADDRC /RH;» FOR FE'S T9 L^K AT IN A CRASH, 

RADRCC ZK6;* RAD ADDRESS 8F PREVIOUS PA3E WITH READ 8R WRITE IN0# 
CADDC C;* ADRS OF C8RE BL0CK THAT RAD CHNL LAST STARTED T8 USE 
$ENDR BSS 



FRGT SN#SS,3C>SD*Sb*Swj/SW#SKG/SR/SE#SI#SCi 
FfcRGET 
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o 



<x_ 



o 



RUP 



IDENT 



06/16/72 



6/ai/?2 15:11 



PAGE 



UISTM 
"Pi EqU *lj* SUPPRESS FANCY HASH TABLE ADDRESSING 
* STRING AND FLOATING POINT SYSP9PS 7/30/66 



"SCTT 
SWCI 
SCI 8 



^9PC 
0PD 



OP_C 

SBRS ~8PD 

SSKSE 8PD 
UGCI MACRe 

E A X 

ENDh 



13^»B5 
157B5 
161 bp 

173B5 

163B5 

A 

A(i) 

VjCU 



SYSPepS wITH BIT REMOVED ... 

.•...••. F6R.USE BY SYSTEM M9DE R8UTJNES 






* OSAGE COUNTERS FOR ARITHMETIC PQPS 

« UTILIT Y fcRS'S (33*34/35/37) 



BRS 33 







$GETSTR STb 

STX 



ETR 
CAX 

LDc 



SKA 

STB 

EAX 



STX 

bRU 



GlilNl 

V;SIn3 



*40G37777b 

UA 

0# 6 

as in? 



GSIN4 5i*CI* GSINP 



scia 



GSIN3 






RUP 
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$KE 
bRU 


GSINl 

1/6 
USJN3 

EPtPx 




IDA 

UDB 
IPX 

bRu 




* BRS 34 






S3UTMS6 STb 
Mut 


STRtf3 
THREE 
23 




SUB 
SKN 

BRU 


STk©3 
TYM2 


N 


IDS 

b R U 

TYM2 CAb 


*l'*7777b 

S T K 6 6 





ADD 
XAB 

BRU 



STR33 
STKdS 



>ittI_.SPE.CIAL-MBDE 



URS 



..id 



$$UTSTR ADD 
SIX 






STR86 



STR94 






ADD 

STx 
ETR 
~STA " 
CbA 
ETR 
STA 
UGC I 

BRU 



"€5" 



Z.ER9 

/.ERfr 

STR81 
*1S5 
STR92 

K1S5 

STR021 

STR92 

STM8 



CLEAR x\0 



CLEAR x\0 



^j^^f 



o 



o 



o 



STR98 



SKK 

BRU 
SKE 
i3RU 
IPX 



STRS3 

STRQ7 

M7 

STRQ5 

STR8J 



RUP 



PAGE 





BRU 


EP8PX 


STR95 


sk.e 


F#uR 




BRU 


SIRS 7 




IDA 


= 1^58 


STR37 


SKQ 


K137 




BRU 


STK&7A 




_i>KL 


?.1A7.B. 




: o R u 


* + c 




BRU 


STR67A 




SKE 


slbSB 



BELL: 



bRw 


* + H 


BRU 


&TSB7A 


oKfc- 


= 152B 



p h U 

pRU 
SKN 


STR67A 

UExFLG 




BRU 
CAB 
LDA 


STR84 
_.._SlA. 


AM 


SCI 9 

CBA 

SUB 


STROl 




STR97A SCIt? 

■B.RM: : 1^:f 


5TR3<* 











AMPERSAND 



*93Q STRING "PRBCESSING SYSTEM* MANUAL IS DOCUMENT NUMBER 30»10«2O RUP PAGE 



♦WRITE CHARACTER AND INCREMENT. THE pep ADDRESSES A STRING PejNTEK/ AND 
#THE CHARACTER IM A IS WRITTEN 9NT8 THE END 8F THE SPECIFIED STRING. 
»THE S ECOND P9INTFR IS INCREASED *3Y e.\£# SQ THAT THE P9INTER NSw 

#P9INTS~T0"THE NE* STRING* X AND A ARE PRESERVED* B DESTRdYEDt 
WCI P0PD I57b5 
*NCIP BS5 o 



WCI1 ETR K377 

STb ^CH3 
S_LA wCHl _ SAVE CHARACTER T8 BE WRITTEN 

ST>. a ! CH£ SAVE x REGISTER 

FAX* o GET EFFECTIVE ADDRESS dF PdP 
M 1 N .„..1>^ _ INCREMENT SECOND WGRD dF STRING P0 INTER. 

LDA 1/6 AND PICK IT UPt 

BRU ACHb GG Te WCH C$DE# WHICH IS IDENTICAL FR6M 

*WRIT£ C HARACTER AND DECREMENT; DECK, 1ST PTRt 
*ANO WRITE CHAR. eN BEGINNING 3F STRING 
WCD P&PD 13bbo 
$WCDP bSS 



WCD1 


ETR <377 




STB WCH3 




STA vMCHl 




STX WCH2 




EAX* o 




LDA 0/6; SkR 0/6; 



SP 



* THIS POINT 8N. 

*ST8RE P OINTER. THE A A NiLii. REGISTERS ARE SIB.PED. JLN .THE WORD ADDRESSED. 

#BY THE POP AND THE NEXT '*ORD 

STP P6PD 167B3 

*STPP STX STP1 SAVE INDEX REGISTER 



EAX* GET EFFECTIVE ADDRESS 

STA U/6 P0 THE 
STB 1/6 ST0RE 

IPX STP1 REST9RE X 

BRR Q RETURN 

»LBAD P&INTER* THE A AND q REGISTERS ARE L9ADED _FR8M THE W9RD ADDRESSED _„aY THE..P 



f% 






o 






f 



#ANjF THE NExT WORD* 
LDP P8PD 166B5 

$UDPP CXA ; EAX» Q; 



RUP 



PAGE 



LPS 1/6; LPX Q#6; XXAj BRR 



GET CHARACTER AND DECREMENT 
TRANSFER CHAR. FROM OPERAND STRING 



TO A REGISTER* DECREMENT END-STR* PTR. 



GCD 



P®PO 



$GCDP aSS 

GCDJ STB GCJ4 
STX 



JL37B5 



GCI1 



E A X * 







IDA 


1/6 




sko 


C/ 6 





BRU 
SKR 

BRU 



#G£T CHARACTER 

*FJRST W9RD 8F 



vaCl3 

1/6 
-*£!£.. 

ANp 
THE 



INCREMENT* THE POP 
POINTER IS+sORs T8 



ADDRESSES A 
THE_SEC£ND# 



GCI 

$GCIP 
GCI77 



SKIPPING* OTHERWISE/ IT 
CHARACTER OF THE STRING 
BY 1* X IS PRESERVED/ b DESTROYED 



STRING POINTER* IF THE 
IT RETURNS WITHOUT 



SKIPS AND RETURNS WITH THE FIRST 

IN A AFTER INQRIMENTINQ THE FIRST P8INTER 



PO 



rD 1651)5 



BSS 
STB 



3CI4 
3CI1 



EAX# 



GCI9 



GCI3 



MJN 
IDA 

SKG 
BRU 
SKR 

nop 

LPx 

LDB 

BRR 



0/6 
0/ 6 
1/6 
3CI8 
0/6 



GCI1 
GCI4 




SAVE X 

YES. DON'T HAVE TO WORRY ABOUT WHETHER 

ADD_R_ESS__IS._.RELABLE-D* GET IT 

INCREMENT POINTER 

AND GET JT 

IS STRING. NULL ( 1ST POINTER >«p END) 

NO 

YES* RESTORE P8INTER 

ALLOW FOR POSSIBLE SKIP 

RESTORE X 

ANQ._RE.TLj.RN_ WITHOU! SKIPPING 



GCI8 MIN~0" 



MUL «12525253B 



RCH 
ICY 



EXu 



^v 



GCI2 






* QCI 



GCU 



"ETR 
IPX 

„LDb 
BRR 
LCY 

_J*CY 
CBA 

BRM 
WITH 

~~ZRtf 



*12S 
2 
0> £ 

24p 

Ci C I 2 # 2 
<377 

GCU 

GCU. _ 

u 
3 
.16 

TRAP 
POJNTE* 



INCREMENT RETURN ADDRESS FOR SKIP 6N RETURN 
MULTIPLY CHARACTER ADDRESS BY X/3* THIS 
LEAVES WSRD ADDRESS JN A, CHARACTER 
ADDRESS JN T6P TWO 'BITS 0F B» 

CAX + aAC» W8RD ADDRESS TO X 
MOVE CHARACTER ADDRESS T0 BOTTOM QF B 
GET *6RD 
CBX * CAB 

SHJFT 10 GET CHARACTER IN BOTTOM OF A 
REM9VE SUPERFLUOUS BITS 
RESTORE X 



RUP 
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AND RETURN 
SHIFT TABLE 
FROM A w.©RQ... 



FOR EXTRACTING A CHARACTER 



IN T»S« BL3CK 



LDA 
STA 


3CU 



MIN 
LDA 
SKG 


0/2 
0*2 


BRU 
SkR 
NOP 


3CI 3 

Of 2 



♦WRITE 



BRR 3CU 
CHARACTER 

CAN CAUSE 



&N THE END 9F STRING 
A GARBAGE COLLECTION 



# 
ViCH 



STORAGE* THIS IS THE ONLY POP WHICH 

IT ..EXPECTS THE ADDRESS OF THE 

PARAMETER TABLE IN X AND THE CHARACTER TO BE WRITTEN IN A 
RESTORES BOTH* B IS DESTROYED. 



AND 



$WCHP 
WCH77 



PQP D 164B5 

BSS 



STB wCH3 

ETR 



K 3 77 



STA WCH1 
STx WCH2 
EAX* 



SAVE CHARACTER 
AND INDEX (ADDRESS 



OF PARAMETER TABLE) 



o 






o 






O 





MIN 0/6 


# 






IDA Q,6 




SKE 1,6 


* 






BRU WCH5 




IDA <M1 

ADM Q,6 




EAX a, 6; CXAj 




108 0; BRU* T 


WCH5 


MUL «12525253b 


* 






CAX 




LCY 5 




ETR <30 




UD& Q#6 




XXA 
LCY 8#g 


* 






ETR P77777400B 




MRG wCHl 



o 



O 



INCREMENT CURRENT LAST CHARACTER Ta GET 

CHARACTER ADDRESS FOR THE NEXT CHARACTER 
SET THE ADDRESS T8 A 

IS IT EQUAL T8 LAST ADDRESS JN STRING 
ST8RAGE$$ 



RUP 



PAGE 



ETR #4Q.Q37777Bj ST A T; LPX 



WCHg; LDA WCH1 
CHARACTER ADDRESSES 



RCY 
CAX 

STB 



8j2 



compute w0rd and 
see gci c6de 
save *0r0 address 
character address shifted 3 in ac 
remove extraneous bits . 
pick up word 

shift count to x 

.sh.ift_it._t8 put character to be altered 

AT a8TT8M 
MASK 8uT THIS CHARACTER 

AND INSERT THE NEW ONE 
SHIFT WORD BACK 



LDA 

LDX 
LD3 



a CHI 



; WCH2 
WCH3 



RESTORE W8R0 

STORE *8RD _ 
RESTORE A 

AND x 



ADDRESS 



BRR AND RETURN 

♦skip on string equal* this pep compares the strings 

_* AB AND IN THE TWO a_8RDS ADDR_ESS£_D BY THE POPt 

# Exactly identical to the machine command SKEt 



WITH POINTERS IN 

IT IS 

ALL REGISTERS ARE 



PRESERVED. THIS P'd? CHECKS FfcR EQUAL LENGTH STRINGS FJRST 
RETURNING WITHOUT A SkIP IF THE_ STRINGS ARE NOT EQUAL. IF THEY 
SKC8 TO FIND OuT ABOUT EQUALITY OF THIFR CONTENTS 






* ARE, IT CALLS 

SKSE P8PD 163B5 
$SKSEP BSS C 

SkSI 

SKS1+1 

SKS5 



STA 

STB 
STA 



SAVE_.I*0 COPIES 



STB SKS5+1 OF FIRST STRING POINTER RUP PAGE 8 

STX $K$H SAVE x 

sub SKSi+i compute; 

STA SKS6 AND SAVE LENGTH 

EAX* GET ADDRESS 8F SECOND STRING POINTER 

iPA^f6 .. ce.MPutE-._. . . .. . . - -.. . ... 

SUB 1*6 ITS LENGTH 

SKE SKS6 AND COMPARE WITH FIRST 

*±2 NOT EQUAL .. . 



BRU SKSE2 EQUAL 

LPX SKSH Net EQUAL* RESTORE X# 



Sj<S5 A AND 

^ LDB SKS5 + 1 b 

% ®* R O AND RETURN WITHOUT SKIPPING 

Jg SKSE8 LD B 1,6_ LENGTH EQUAL. PICK UP SECOND 

LDA o,o STRING POINTER 

LDX SKS2 AND ORIGINAL X 

BRM _SKC9 _ COMPARE STRING IN.AB WITH THE ONE IN SKSl 

BRU * + 2 A8 LESS 

# MIN EQUAL. INCREMENT RETURN ADDRESS FOR SKIP 

SKSE1 LDA S KS5 _ GREATER. RESTORE A 

LD6 SKS5+1 AND 6 

• BRR AND RETURN 

»SKlP ON STRI NG GREATER. THIS P$P IS TO SKG AS SKSE IS TO SKEt IT CALLS 

# SKCa IMMEDIATELY WITHOUT COMPUTING LENGTHS 
£ SKSG POPD 162b5 
$SkSGP BSS 



STA SKSl SAVE 

STb SKSUl TWO COPIES 

STA SKS5 OF FIRST STRING. 



STB SKS5+1 
STX SKS6 SAVE X 
E AX* Q ... .. ... ...GET. 



LDA 0,6 SECOND STRING 

# LDfe 1*6 POINTER 
LPX SKS6 RESTORE X 

BRM SKCO PO COMPARISON 

• MIN SECOND STRING LESS* I.E. FIRST GREATER{*») 
» I NCREM_ENT_. MTgiRN_ ADDRESS FOR SK LP 



© 



— ^ — 






NOP 
IDA 



!KS5 



BRR 
#THIS ROUTINE COMPARES 
# (SECOND STRING) t 
SKIPS ONCE 
N0TE 

OF B. 



_* 

"SKC5 



IE5S# 

IS GREATER* 

S^T INSTEAD 



IW 



EQUAL 

FIRST LESS, RESTORE A 
ANP B 
AND RETURN 
THE STRINGS IN AB (FIRST STRING) AND IN SKSj 
IT RETURNS WITHOUT SKIPPING IF THE FIRST IS 
IF THEY ARE EQUAL* AND SKIPS TWICE IF THE FIRST 
OF THE NECESSARY 6CPS ARE WRITTEN 

the pept 



RUP 



PAGE 



THAT SEVERAL 
;i.'NG CALLS &N 



SKS4 



§ 

to 



STB 
ADD 



SKS4+1 
<?600; 
STX SKS7 
SKC91 MIN $<S1 

LDA"'SKSi~"' 
SKG SKSl+1 

. bR U SKC04 

sKc^a M|N""b<cS"" 



SKG ""SKS4+1; 



MI 



_SKS4 
SKS4 
SKS4+1 

SKce 

SKC05 



LDA 

SKG 
. MIN. 

bRU 

SKC94 MUL *12525253B 
RCH 401 B_ 

LRSH 22. 

LDA 0/6 
R CH 24b 



ExU 3CJ2/2 
ETR <377 

STA SKS3 
MIN SKS4 
LDA SKS4 
SKG SKS4+ 1. 

BRU *+2 
BRU SKC05 



SAVE FIRST 
STRING POINTER . 
BRM TRAP;* ANTI HOG MEASUREt 
AND X 

8EGIN L&0P. OET A CHARACTER 
FROM SECOND STRING 
(IS IT NULL** 
NO _ 

yeso first sfrlnq cannot be less/ s8 
Increment return address 
is .f.i ssi string null 



NO. IJHEREFORI IT. IS GREATER 

RETURN 

SECOND STRING NOT NULL* GET CHARACTER 

AS 

IN 

GCi 

COPE 
ABOVE 



Q0T IT 

TRY TO GET CHARACTER 
FROM FIRST STRING 
IS IT NULLS $ 

NO 

YES SO IT MUST BE LESS* 

.... SKIPPING.. 



RETURN WITHOUT 



MUL »12525253B 

RCH 401B 
LRSH.2£_ 
IDA 0#6 

<377 

SKS3 
SKC93 



RCH 



ETR 
SKE 
BRU 



BRU SKC©1 
SKCas SKG SKS3 

BRU SKC65 



SKC95 



MIN 
MIN 



BRR" 



SKC9 

SKC9 

_S_KS7 

SKC9 



N0T NULLt GET 

CHARACTER 

AS 

IN 

6CI 

CODE 
A63VE 

AND C0MRARE WITH CHARACTER 8F 2ND STRING 

N8T UAL. 

EQUAL. U9P 

C9MPARE FURTHER 

LESS f __ RE TURN ...w I TOUT SKIPPING 

GREATER SKIP 
TWICE 

RETURN. POINT t. REStaRE X 
AND RETUR 



RUP 
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STP1 


zro 





GCJ 1 


ZRe 





GCH 


ZR8 


9.. . 



GCI 7 

WCH1 
WCH8 



ZRe 



ZRe 



o 



WCH3 


ZR8 





SKS1 


BSS 


z 


SKS2 


ZR8 




SKS3 


ZR© 





SKS4 


BSS 


z 


SKS5 


BSS 


z 



SKS6 
SKS7 
SCH1 


ZRe 

8SS 







SCH5 
SCH4 
SCH9 


BSS 

ZR© 
ZR8 







SCHIO 
SCH11 

SCHSO 


ZRe 

ZR8 











MASK FOR FIRST 3 CHARACTERS OF STRING 
HA$K F9R LAST 3 CHARACTERS OF STRING 
STARTIN G LO CATION FOR SCAN OF .HAST TABLE 



o 



%J 



SCH52 ZR3 
# 



FLAG IS -1 IF N8 «1 ENTRY HAS BEEN 

ENCOUNTERED DURING SCH SCAN# THE INDEX 
8F THE FIRST SUCH ENTRY ENCOUNTERED 
8THEWISE 



RUP 
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§ 

o 



IF -DUIFP 
^BATING POINT ARITHMETIC 



# FAD 

FAD 



$FADE 



FASE 



FLOATING 
P&PD 



STA 

CLA 

STx 



STA 

STB 
STE 



STX 
LDX 
EAX* 



FAN 



FAX 



CUAB 

bRU 

CXA 

LDB 
STE 

XX A 

SUB 
SKG 



ADD 
. 1.5.6.B5. 

ssoi 

SSQ3 
FLAG 

in 



SSQ3 




FLAC. 



1/6 



ZE 
KM1 



CIA 




SKE 


0/6 


BRU 


FAN 


CLAb 




BRU 


FLAD 


v K t 


ssoi 


BRU 


FAX 






FUAC 



FtAGh 



BRU 

Ska 



xma 

LOB 

R$H* 



XAB 

skn 

BRU 



FLAGM 
KMIOO 

ssoi 

ZM 

ssoi 

FLAG 

FAS 



RUP 
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MRG 


K777 


SUB 


1/6 


E6R 


£177 


XAB 




sue 


0/ 6 


BRU 


FLAF 



FAS 


CQPY 




ADD 




XAB 




ADC 


FLAF 


STE 


FLA6T 


avT 




BRU 




N6D 




SKA 




BRU 




CLX 


FLANZ 


XXA 




SKG 


FLABF 


BRR 


FLA0K 


XXA 


FLAX 


8VT 




BRU 


FLAX1 


IDE 




LDX 




BRU 


FLA8A 


DATA 



CNA 
SKA 
LDA 



A/E 

"0/6 



"FLA6S 

38 
K_MJ 

FLANZ 



FLAQA 



FL6F 

SS03 "'" 

xpep 

lO.Q000C0b*FLA_9K-l 

KMIOO 

*3§„„. 



SET OVERFLOW DEVI6USLY 



O 



o 



jQ 



o 



■O 



FLAD 



O 

o 






r L o 5) 



FLA8S 



FU9F 



IPX 
XXA 

R$H 
COPY 



BRU 
XAB 
_ADD 
XAB 
ADC 
_BRU 
RSH 
E6R 
BRX 



XXA 

SKG 

_&Rg 

BRR 

bRX 

BRU 

CLEAR 

LDX 

BRU :B 



0#6 

b*E 

FLAG 

FLSS 



RUP 



PAGE 13 



XMA 

XAB 
XMA 


SS01 

ZM 


SUB 
XAB 

sue 


ZM 

SSD.1.. 



FLAF 

ZM 



ssoi 

FLAF 

1 

K**b7 
FLAX 

*255 

_F.l A 9K 

FLA8A 

* + £ 
FLOJ. .. 

SS03 
XPOP 



SET 6VERFL0W DEVJ8USLY 



• 


FL0J 


E9R K467 
RSH 39 
E6R K4fc7 




• 


FL6J1 


EAX B5b 
6RR FL8J1 
IRQ FLAXW#1 




• 


* FSB 

FSB 
$FS8E 


FLOATING SUbTRACT 
PGPD 155B5 
STA SSD1 




• 









• 



^v 








« FNA 


IDA 
BRU 
FLOATING 


$FNA 


LDX 

BRM 
BRU 


FNAS 


ZRS 
STX 

SKB 


BRU 
CNA 
SKE 


SKA 

BRR 
STE 


SKE 

BRU : 

RCY 


FLC9M 
FICA 


BRX 
N6D 
XXA 


SKG 

skg 

BRR 



FNASFL 
FNA9F2 






1 



FLNB 

FIMX 



BRu 
ZR6 
XXA 

~E$R 

RSW 
E8R 
BRX 

fc. A A 

BRU 
CLEAR 
BRU 
XXA 

Wv 
IDE 
LDx 



KM1 

FASE 

CNA (BRS 21) 

SS03 
FNAS 

xpap 

FNASX 

...••I.0QQ6 

FLNA 

ZERS_ 

K1S7 

FNAS 

"kVti'7"~" 

FLC&M 

.1 ....- 

FLCA 

4 

'i'255 

*-?57 

FNAQFi. 

FLNB1 

FNA8F2-1#1 

K~4b7 

39 

i<hu7__ 

* + 3 
355 

.FLNb . 
FLNB 



FNASX 



^^inr 



RUP 



PAQE U 






O 



1T\ 



FLNA 



# ISC 
ISC2 



ISC 

$ISCJ 



# SIC 
S1C2 
~SlC 
$SIC1 



FMP 



FMP 

$FMPE 



BRR 
STE 

XM 



FNAS 



RUP 
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CNA 
XAB 

E6&L KMl 
BRU FLNB 
INTERNAL 18 STRING 
A £A+3_C.Q.Q.b_ 

140B5 

SSQ1 

_.i.sca 

SCI 
TO INTERNAL 



CONVERSION 



P0PP 
STA 

LDA 



BRu 

STRING 

4 25+50001$ 



CONVERSION 



P8PD 
STA 



1^165 

ssoi 

SICc: 



SCI 


STA 


bSX 




STb 


SS02 




ST* 


SSG3 



EAX* 

CXA 

ETR 




ADMSK 



STA gbL 

BRU BS4 
FLOATING MULTIPLY 



POPD 

STX 

STA 

STE 
STX 

BAC 

LDX 

EAX# 

LRSH 

MUL 

STA 

LDA 



SS03 

4v **" 



_a . 



m 

o 

§ 











CXB 

COPY AX#A#E 

XX.A 

ADM ZE 

CQPY XA#BX#b 

IRSH -a 






MUL SSOl 
ADD ZM 
MUL TW9 






ST6 ZM 
XMA SSOl 

._!M...... _0#.6 

XAB 

ADD ZM 

XAB 










ADC SSQl 
IDX ZE 

SKA K3G7 






tsRU FLEND 

SKp «-1000b 
bRu FLEND 






SKE K4u7 

BRU FLND2 
RCY 1 




FLEND 


6RX FLEND 
N6D 4 

Rev 






XXA 

SKG s2bb 

skg »-eb7 






bRR FLAG A 
XXA 

LDE 

LDX ' SS03 

BRU XPOP 




FLND2 




* FDV 

FDV 

$FDVE 


FLOATING DIVIDE 

P8PD 153B5 
SIX SSQ3 











RUP 
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^b*T 



"O 



o 

— ^ 



o 



FDV8 



STA 

STE 
SIX 



LDX 
EAX* 

RSH 



DIV 

evi 

SfA 

bAC 



RCY 

CNA 
MUL 



bRU 
_LDA_ 

♦STORAGE 
IE ZRF 

FLAG ZRR 



SSOl 

SS03 



Fova 

ZM 



RUP 
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ZM 



RSH 


__1. _. . 




STA 

LD& 
CXA 


s S 1 




STE 

XXA 

CNA 






ADD 
ApM 
bAC 


TwB 





ADD 


ssci 


DIV 


Q» 6 


MUL 


Twe 


ADD 


ZM 


LDx 


IE 


ska 


<Mi 



FLEND 

FL^02 

SSOl 
FL6J 






FNASX ZR6" 

else. 
» isc in ternal to string c9nversj8n 

ISC8 4 2445000b 
ISC P8PD HCB5 
$ISC1 STA SSG1 

ISC2 

SCI 



RUP 
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IDA 

BRU 



* SIC S TRING TQ INTERNAL CONVERSION 
SlCa 4" 25+5000B 
SIC PGPD H1B5 
$SIC1 STA SSQl 
LDA SIC2 



C3 W* JL 



STA 

STb 



bSx 

.SSj_£. 



STX 

EAX* 
_Q_A_ 



S3 03 

o 



ETR 
STA 

BRU 



aqmsk 

UBC 
pS4 



HARDWARE FLOATING P6INT ROUTINES 



MQST SYSP9PS HAVE Tw© ENTRIES; 
!• NORMAL ENTRY 
_!• ±Q«I«an II ENTRY WHICH DOUBUES THE INDEX REQISTER 

ALL ROUTINES ClSriBER THE A AND b REGISTERS FOR MAXIMUM SPEED 

..X_R.EGI.STER._LS PRESERVED ._ _ _ _.._.. 



* LDFM . FLOATING 10AQ FROM MEMORY (52765) 

$LDFM£ C8P Y Xb 

IP """ ""' fph ~" " 

$LDFMEi EAx* 

_HEkP _ .. ( Qj 6 UA 1 1...6 ) 

COPY BX 

BRR 



o 



o 



SIDFME1 STB 
EAX* 



LDA 
LDB 
LDX 
BRU 



ENDF 



$LDFM£F C^PY 



USH 

copy 

BRU 



SS03 


Q#6 

5 So 3 
SFPEX1 




Xli/ A 

1 

xb# Bx 

IPFMEl 


(bl.6b5) 



RUP 
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* LDFL 

IF 
$LDFL£ HFUP 

BRU 

else 
$ldfle ldx 3s03 



L8AD FLOATING FR6M AB REGISTERS (BRS 118) 

FPH 

SSQ1/SS0S 

XPtiPX 



6RU 
ENDF 



SFPEX1 



# STFK 

$STFME C9PY 



IF 

$5TFME1 EAx# 
HFST 



C9PY 
STFME2 BRR 

ELSE 

$STFME1 "STB 

LDA 

LDB 

EAX* 
ST A 

STB 



FLOATING STORE INT9 MEMORY (530B5 
Xt> ._. . .... . _ 

. _(0>6)_/ (1*6.) ....._ ._. . ..... 

ax 



SS03- 
FAC1 



Qs 6 
1*6 






BRU 
ENDF 
jSTFME F COPY 
" USH 
C8PY 



STFL - 



IF 

SSTFLE HFST 
STFLEa B RU 

else 
$stfle loa 

LDB 



XPdPX 

X3#A (517B5) 

1 

XB#BX 

STFM^i 



fLtfATlNg, ST9KE INT9 A b REGISTERS (BRS 119) 
FPH 

ssci#ssoa 

... POPX__ 

FA CI 

FAC 2 



RUP 
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BRU 
ENDF 



XP&PX 



* FFAp - FuOATlNvi ADD (552B5) 
$FFADE CO FY __a q__ 
IF FP* 
$FFADE1 EAx* G 

_(_Q' (&.)_/ (.1*6) „ 

bX 



HFAD 



COPY 
BRR 

ELSE 



w 



$FFADE1 faRh 
ENDF 


SFSTgp 
FADE 


$FFADEF COPY 

LSH 
C3PY 


XB/ A 

1 

t3X# XB 



BR.U 



FFADEl 



(52QB5) 



* FFMp • FLOATING MULTIPLY (57PB5) 
$FFMPE COPY XB 



o 



IF FPH 
$FFMPE1 EAx* 
_HFMP (0/6)#(l*6) 

capy bx 



BRR 



$FFMPE1 BRM 
BRU 

ENpF 

$FFMPEF CPPY 

LSH 
CQPY 



BRU 



3FSTUP 
FMPE 

Xd/A 

1 

XB/ 8x 

FFMPEi 



(B«U SFFMPE) 



RUP 
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(52135) 



# FFQV * FLOATING DIVIDE (S46B5) 
$FFDVE C8PY xd 



IF 
$FFDVE1 EAx* 
HFDV 

cSpy" 

&RR 



$FFDVE1 fcPM 
t3RU 

$FFDVEF cePY 
LSH 
C9PY 



BR> 



FPri 



1.Q/6LL.M/...6) 

bX 



SFSTUP ' 
FDVE 

XB# A 
FFPVE1 



(522bS) 



# * FFDI - FU8ATINQ INVERSE PIVlDE (547B5) 

$FFDIE COPY xb 

IF FPM 
$FFDIE1 EAX» 

HFDV I (Q#6)/(l*6) 



COPY 
BRS 

„__ ^ELSE 
$FFDIE1 bRM 
XMA 

£BPY 

XMA 

COPY 
B RU 
ENCF" 
$FFDIEF CBPY 

LSH 

Ct)P> 

BRU 



tiX 



SFSTUP 

ARG1 

Aii/^A 

ARG2 

AB#bA 
_FDVE 

Xb# A 
1 



RUP 
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Xd/BX 
FFOIE1 



(515B5) 



» F FSB - FIXATING SUpTRACT <54?Bo> 
$FFS6E COPY Xb 



IF 

£>FFS£Ei EAX> 


FPH 

G 


HFSb 

cePY 

6RP 


(Q>6)* ( 1/6) 

u>X 

Q 


$FFSt:El b"'" 


3FGTUP 

FSoE 



ENDF 
$FFSBEF C9PY 
LSH 



C8PY 

BRU 



Ktii A 

1 ; 

Xo/ BX 
FFSbEl 



(5?3B5) 



» . FFSI - FLOATING SUBTRACT INVERSE (543B5) 
*FFSIE C8PY " Xt3 

IF FPH 
$FFSIE1 EAX* 



o 





BX 
y 

SFSTUP 

ARG1 

AB/BA 

ARQ2 
AB/bA 




HFSBI 

copy 

bRK 
ELSE 
$FFSJE1 BkM 
XMA 
COPY 
XMA 
COPY 




BRU 
ENDF 


f- S B E 




$FFSIEF CfPY 

LGH 
COPY 


1 

X a > B X 




bRU 


FFSIEl 




# S K F N •» 

IF 
$SKFNE shfan 


S*IP IF FLOATING AC NEGATIVE (BRS 8?) 
FPH 




BRU 
BRU ': 


XPfePX 

A ■ ■■ ■■ 

aPOPX 




ELSE 
$SKF'NE SK'v 

BRU 


FAC1 

XPOPX 




M I \ 

bRU 

EfCF^r-:.; 


G 

xpepx 




IF 


SkIP IF FLOATING AC ZERtf (BR3 83) 

FPH 




$SkF-ZE hfst 
LDA 


SSG1/SSQ2 

b S Q 1 

SS02 




ELSE 
$SKFZE LDA 

LDb 


FAC1 
FAC2 











RUP 
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ENiDF 



M I Nj 



ZER9 
XPQPX 


XPOPX 



RUP 
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* SkFUZ - SKIP IF FLOATING AC N8IWER© (BRS 84) 
IF FPH 

$SKFU2E""hFSf~ SSci'l^SSO? 

m IDA ssoi 



_>L_C-'.. 

_. >. L2C. 

£ $3kFuZ.£ LDA 

O - ^ B 



SS.Q2 

FAC1 
F AC2 



ENDF 
SKE 
M I N 



ZERtt 





BR; 



xPBPx 



FFNA - NEGATE FLOATING AC (BRS 148) 

IF _J^ 

" FMiNl,r"MlNl + l 
XP5PX 



sFFNAE hFr-'P 

h» R U 
F ^ I N 1 DATA w 7j_0 

ELSE 

$FFNAE UUA FAC1 

__ J_P___ _ _ FAC2 

bRK FNA 

BRU SFPEX 
ENDF 



$FFIXE HFST 
IDA 



FFIX - Fix FLOATING ACCUMULAT8R T8 A (BRS 149) 

ssoiissoa 
ssoi 

C C "'; *"> 

...„«jJi ... .... „ _ ._ „. .. - 









o 



-^fc ■*— 






o 






BRU FFJX 

ELSE 

$FFIXE LDA FAQ 

IDS FAC2 

bRU FFIX 
ENDF 

* FFUT - FU8AT 

IF FPH 



RUP 



I KJ £*. few *0# 



A TO FLOATING AC (bRS 150) 



•FFUTE 


IDE 
STB 
HFLD 


K27 

SS02 

ssoi/ssoa 


*FFLTE 


dRU 
ELSE 

v-L. Li 


aPUPX 




SKE 
BRU 

BRU 


ZERO 

* + 2 

# + ** 




LUx 

nqd 

LDt 


K2 7 

*+3 




IDX 

BRU 
ENDF 


SFPEX1 









$SFPFG 

$ARG1 

$ARG2 



IF 

STSRAGE 

DATA 

"ZRe 

ZRS 



• FPH 

and exits 
-l 



FSR SIMULATED ROUTINES 

'1 IF SIMULATING NEW SYSPQPS 
ARGUMENT F0R f~P SOFTWARE ROUTINES 



$SFPEx 
SFPEX1 


SkM 
BRu 
STA 


SFPFG 

SFPEX2 

FAC1 


SFPEX2 


blO 

BRR 
SKF. 


FAC£ 


SFPFG 





m 






• 




BRJ *«fl 
DRR o 


• 
• 


SFSTUP 


ZR& 

STB SS03 
EAX* C 

LDA 0/ 1..> 

STA ARGl 
__U>b 1#.4 


» 




STB ARG2 

IDA FACl 

__LD3 FAC2 


o 


IFSTUP 


BRR SFSTUP 


• 




MJ.\ SFPFG 
STX SS03 
STA SSQl 


• 




F A x * 

IDA o,6 

STA ARGl 


• 




UDA 1,6 

STA ARu2 

LDA ssca 


• 




bRR" IFSTUp 
FNDf- 


• 


* 
* 


ReuTlNL'S Ft>W PERFORMING' 
WITH THE FL8ATING POINT 


• 


$HFADE 


IF FPh 
STX SS03 


• 




EAX *• 
SKt iEi<Q 
t>Ru HFADl 


• 




L D A » b 

LOB 1#6 
BRU XPQPx 


m 







RUP 



PAGE 26 



STANDARD FL8ATJNQ SYSP0PS 

HARDWARE 



o 



o 



HFAD1 STA 






iTb 
HFLL- 



HFAO 
HFEX HFST 
HF9VM1 BKU 

$HFSB£ STA 



TS 



STX 

EAX* 

CLA„, 



b K c. 
BRy 

BrvU 

~HFLT>~ 

HFGb 
BRU 



SSOl 
SS02 

SSwl#S502 
(0/6)/ (1#6) 

ssoiissoa 

PdPX 

SS01 

-SS.G.2. 



S5Q3 



*■ + £ 
POPX 

"ssoT/ssoa 

:(0/6)* ( 1,6) 
■MFfc X 



RUP 
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LOAD Fa FRBM CURRENT AB REGS 
ADD IN THE OPERAND 
RETURN RESULTS IN AB REGS 



LOAD Fa FROM CURRENT A8 REgS 

SUBTRACT THE BPERAND 






$HFMPE SkE 
BRU 
BRR 



STA 
STB 
STx 



E A a * 

CbPY 
SKE 



2ER3 

* + ?.' 





S S 1 



S3C3 



A/c; 
Qt b 



D R v # + 2 

bRo XPSPX 

hFUu- _SS,".1*_3S02 

HF-P < j*<>># < 1*6) 

BRU HFEx 



MULTIPLY bY THE OPERAND 



SHFpyt SKF: 



• 



i£i<e 



BRU 
STA 

STX 



EAx* 
HFDV 
6RU 

~El"SE" 

SHFADE bK^ 

BRw 



v) 

3$ Ql 

SSG2 
S$J3 

S$.Cl.iSS02 

u 

( J# 6) / ( 1#6 ) 

hfex_ 

IFSTUP 
FAL.--E 



RUP 
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DIVIDE BY THE 6PERAND 






$ NFS BE 


6RW 
BRU 


IFSTUP 
FS.-E 


$HFMPE 


BRM 


IFSTUP 

FMPE 


$ H F D V E 


dR^ 


IFSTUP 
F-DVE 


$HFNA 


ErOF 
BRM 


FN A 




i; R v> 
IF 


Api.PX 

FPH 



HARDWARE FLOATING OVERFLOW RATINE 



$FPQVI ZRf? Q 

STA 
RFPUV 

LD a' 

STA 

Et^ 

BR I 
FP3VQ1 ZRF; 



FP&V01 

KMJ 

5FP8VI 

£2*00$ 

FPevoi 

FPfcVl 



ARM THE gSER M0DE TRAP AND FLAG 8VERFL0W 






^1 






ENDF 

FIX AND FL6AT 



RUP 
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$FFIX SKD N8P2<* (DIFFERENCE EXPONENTS AND SKIP IF NgMgER NOT TOO BIG) 

BRU FIXblG 



f: 



COPY 

RSr-i 7776/2 (X wlLL ALWAYS aE >0. CONVERT TO AN INTEGER) 

BR_J _ XP9PX 

FlxeiG copy bV£"~" 

LSH 1,2 

SK_B .SFpOVJ. (LE.LL USER MODE. TRAP_.THIS IS ... AN OVERFLOW.). 

N6P£4 NOP C ^D 

COM c^GOd (ARM USER MODE TRAP) 

BR^ X P 1;; P X 

(OLD CODE AS OF 6/19/7a) 

X^ 



IF -1 

$ffix ska 



BR^' 



FFIXO 



bRW 

Copy 
"Rsn 

bR^ 



FNA 
*2? 

FIXblG 

b#E 



0/2 



Q C 



FFIX1 





COPY 

EOk 

ADD 


u A / A p 
KM! 

tJNE 




COPY 

COPY 

ADC 


/ ^ * b A 
KN1 


FFIXi 

FIXblG 


LDX 
BRU 
C&PY 


^ S u 3 

xpep 

t ■ / E 




L SH' ,,v- 

ETR 

bRu 


0/ 2 
XX 

FFlXQ 



$FFUT 



m 






CLb 

ske 

i?RU 
BRU 
LDX 

N ?P.._ 

UDE. 

LDx 

JiRyL.... 

IF 

FLeATI 



Z,ERQ 

* + 2 

* + ^ 

^8 



S S G 3 
«FPH 



RUP 
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GET xREG 



G ._?_?. I.N.I . AR L'THME_T I C. ..seFlAARE. 



FL&ATIN-j ADD. w8RK3 ONLY 8N NORMALIZED NUMBERS* TIME AVERAGES 55 
CYCLES WITHOUT SIGNIFICANCE CHECK* THREE MORE WITH IT# PLUS 

CALL AN:D RET UR N t 



$FADE 


SkE 
b R w 


FA,S 




LDA 
LD3 
BRU 


ARg>l 
ARJ2 

FAD 7 


FAD3 


STA 
ST Li 

LDA 


ws3y i 

S S '0 £ 
ARQ1 



SKE 
BRU : 
FAD13 LP*- 



FAD 10 
bSOl 



FAD10 



FAQS 



L L^ G* 
bRU 

S K D 
BRU 

epERANi 
RSh 

XAB 
C8PY 



SSQ2 
FAP7 

AKgL' 

■ S S G 2 
FAD1 

IN 1EM0RY. .(ORIGINALLY JN REGISTERS) HAS BIGGER EXPONENT 

A# E 



o 









ADD SS02 

R6UNP SHOULD BE INCLUDED HERE 

XAB 



RUP 
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FAQ3 



FAD1 







ADC 


ssci 




• 


FAQ14 


STE 

evT 










bRU 


FAD2 




• 




Nec 


J 8 








SkE 


...ZEk9 








bRU 


FAD3 




• 


# 


RESULT 


IS TRUE ZERO 




o 


FAD* 


CL A £ 






■Hk- 




LDX 


O O •..,> -Jl 




# 




UKU 


SFPEX 




JQ 


* 


RESULT 


IS -WT *EN0t TEST 


F8R UNDERFLOW 




FAD3 


res ^ v : 






• 




8VT 










BRu 


FAD 4 






# 


Nrj UNDC 


:RFL'iW : < dVLRFL'irt 




• 


FAD5 


LD£ 








FAD? 


LDX 


S S 3 






bRU 


SFPEX 




• 


# 


6VEKFL9 


* Q.N floating add 





RSH L _ 

E6R K4b7 
3RX PAp5 
SVtRFL';* AND POSITIVE ExPe^EhT* PQSSI&LE FLQATIN3 BVERFL0W 

RE 5 
6T6 

BRU FQVER 

FADS 



oh v 

6DC 



OPERAND JN MEMSRY (ORIGINALLY IN REGISTERS) HAS SMALLER EXP0NENT 

XMA __ S3n_l_ 

XAb 

XMA SSC2 

XAU 

BRU FADS 



£k G AH _^o_. .SUBTRACT • .AvERAfc,E.S_.IHREE. M9RE ..CYCLES THAN AQD 






$FSbE 



FSB3 
FSB£ 









FSBl 






SKE. 

fc.Ru 



DRU 
bRv' 



ST A 

GTb 

Ida 

SKt 

Mw 
bRo 

LUc 

_S.i<E; 

bRU 
RSh 

_XAB 

copy 

XMA 
COPY 



ZER8 
F S B 2 
ARG1 
F5b3 

LAV 7. 

K 4 

SSol 



GTb 


SS02 


LDA 
SKt 

Bfto 


ARCil 

* + 2 


bRo 


FAD 13 
ARG2 

i^S_^_2 _.__ 



FSbl 
A # L. 

<■" r* •■■> ' ■■ 

o o u c: 



SUb 
XAb 

XM A 



'ut 



.SS0.1. 



sue 

CbFY 

BRU 



3SL1 
FADH 



XMA 

XAb 
XMA 



SSQ1 



obui 



XAci 
RSH 

J<AB_ 
MRU ~ 

sue 

XAB 

sue 

tDX 

cspy 



*># c 



<7 7 7 

3ogc 



v£ s> U c 

XB# E 



RUP 
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o 






COPY 

COPY 

BRU 



bX#B#E 



RUP 
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SO 

§ 



F6VER 



DEFINITE FLOATING 

FUNDER 

I 

aX 



9VERFL6W 6R UNDERFLOW 



BRx 
LCY 
LDA 






RCY 

E0R 

RSH 


1 

38 


EQP 
STA 

STA 


Xf 

ssoi 

.. _..._FAC1 


3Tb 
STb 


&SG2 

FAC2 

SFP6VI 


bRU 
E & M 

LDX 


* + l 

c52^O0B 

_ s?oy.3_ 


bRU 

FUNDER Rev 

bRu 


SFPEX 
FAw4 


* FMP 


FLOATING fiULl 



ARM THE USER MODE TRAP AND FLAG ©VERFL8W 



$FMPE 



STA 

STE 



aSOl 



STX 


ZE 


UAC 
LP A 
LR5H 


SS v -3 


STA 

IDA 


ARG1 
ARG2 


C&PY 

AX A 


A X # A * E 







ADM 


ZE 




• 


COPY 


xA#BX,»c 






LRSh 


ssoi 






MUL 




• 


ADD 


ZM 






MUL 


t*& 






STG 


ZM 




• 


XMA 


SSOl 






MUL 


AKG1 






XAw 








ADD 


ZM 




XAB 






o 


ADC 
L D x 


SS.,1 

ZE 






5 k A 


. _„x_X 






bn;u 


FLt-MD 




• 


SKfc 


= *lCOOt, 






bRU 


FLt'MD 






SKl 


X^ 




• 


b R u 


FL^-D8 






PCY 


X 






bRX 


FLEND 




£ FIEND NOD 


4 






R8V 







RUP 
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RES 
OT2 






FLND; 



LDE 
LDx 

dRm 



f avE R 



SSG3 
SFPE.X 



FDV FLOATING DIVIDE 



sFDVE ST.. 



STE 
STX 

RSN 

6RJ 



o o 1 



ZE 



ARG1 

(SKIP IF N8 9VERFLBW BUT D&N'T CLEAR IT* 03/02/73) 
FDV5 



© 



o 






o 

O 



Z M 



$FNA 



STA 

BAC 


£M 


R f JH 
STA 


1 


LDB 


ARG2 



RUP 
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CXA 

r> f r~ 

XXA 

CNA 



ADD 
AD>* 

bAC 



T*e 

it 



RCY 

CNA 



zn 



ADD 
D1V 

MUU 



SSOI 
a K j 1 

Tw'S 





ADO 

LD x 
Ska 




Z^ 
Z.E. 




FDVQ 


BRJ 
DRu 
LDA 




FLtND 
FLND? 

SS;;i 




# 


Et?? 
ST6k 


AGF 


FQvER 





ZHV 
ZR& 
EnDF 



zm 



2X 



FteATIiNG NEGATE 



• 



,SKB;.;.. : ;^ 

BRU 
CNA 


a " lOQGb 

FLNA 


SkE 
SKA 
BRU 


> r p ft 

4 1. r\ v/i 

FNAl 











STE 

SkE" 

hh\J 



RUP 



RCY 

BRX 

FNA8V N8D 



Rev 

9T6 



FNAI 



LDF 

IPX 



Xf 

FNA&V 
1 
FNA&V 
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bRU 
IDE 

...aRL...... 


hMAtJVR 
FNAi 




FNA9VR 


bR'x 
ICY 

LDA 


FNAUDR 
1 
. AX_ ... 






RCV 
EG* 
RSH 


1 

X4 

38 






E R 


a4 
3FP9VI 

.._*.?. 1 ...._ 




FNAUDR 


EO^ 
BRv 
CQPY 


£ 2 '♦ b 
FNAi 

A /.Li. .._ 




FLNA 


dR J 

C' 1 T *"~ 
Old 

CGPY 


FNAI 

A b # b A 






CNA 

C8PY 
EfcR 


KJll..__ 





ARM uS£R M9DE TRAP Jd FLAG SVERFLQW 



*? o u 3 
FN A 



ENDF 



INT UNSIGNED INTEGER 



* 6RS 36 

* INPUT; AeNUMBERt b»RADIX» X«FlLE n9# 









tr\ 



$8UTNUM STA (ijTN&a 

STB 8UTNS3 

STx 0UTN95 

CBA 

m^ TRAP 



6UTN66 



CLA 

STA 

LOA 



8UTN87 



STA 

lrch 

D1V 



CbA 



0JTN92 
"fJUTN'ft'i" 

3UTN33 
uUTNtK 
auTi\97 



RUP 
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ADD <?.7 
SCItJ 



; Sh.G K<+Qi SUB SEVEN 
6UTN95 



LDA 


__ OJTN51 


d R U 
LDB 


8UTN32 

UUTN6 6 
UUTN&3 



lb/ 

13 RU 



UUTN8S- 
tPSPx 



EMAND 5I3NL 

RS 38 

NPUT: u=RAD 



I-NiTEGF.R 

1 a. X = FILE UB* 



■UTPUT:: AsNgMpEi 



# 

$GETNUM STx 



GETNM 



P A C 
STA 

STO 



GTr 

SCItt 
Sk£. : 



-l_TN9_l_ 



uETNQ2 
QETN93 



GEL TN&7 
GtTNOl 



BRU * + £ 
bRU GETN96 



GETN&6 



bRU 
UDA 
STA 
SCIO 

SKU 



bKg 

5K0 

_ bRU 

gEtnM add 



Ca^ 
J~P A 






Gk.\ 
CM A 



GETND5 S<E 
URw. 



r o ■■ ■• 

ama 



ADM 

BRU 



GETNMl 
*M1 

CiETNB7 
GETN81 

GETNQ4 
jETN&2 

.Ci£TN_e.5. 



K 2«j 



0ETNQ3, 



UETNG7 

EPCjPx 



tPt-Px 
GETN82 
*+£ 



3ETM3 4 

GETN63 
GETN02 



GETN83 

GETN96 



RUP 
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• 


Gt 


:tnmi gk^: ^ek& 

D R U * + ff - 


• 




BRu ^ETNM 
S K E a 1 r> 5 b 
bRU 0ETNQ6+I 


• 


# 


bRv oETNM 
IF -DuIFP 


• 


* FIX AND FL8AT 

* 

$FFIX SK'A X4 


• 




bR'" j FNAS 
S K D K 2 7 



IGN6RE LFADING SPACES 



IoNdKE LEADING C.R. 



Lim 1 g. 



Thill 






o 



9 

o 
o 



COPY UiF 
RSH r-,.5 
FlxEND SKN 



RUP 



PAGE 39 



FENDl 



t>RU 
xab; 

IPX 



bRU 
FlXBIG CaPY 



LSH 



SSG1 
FENDl 

E6R K^l; 
SS03 
aPDP 

i3# E 
0/ ? 



ADD ONE; XABi CNA; ADC K*l 



ETR 



AX 
FUEND 



$FFLT 



SKE 
B R u 



c E h 9 



BRU' 




FFlT9 




LP* 




K27 




N6D 




48 




LDE 








FF L T9 LDX 




is o u 3 




BRu 




xpyp 




ENDF 








$EN0RUP &SS 









FQRCaE 


:t 







END 
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§ 






^L^r 



o 



o 






pMT 









I DENT 
UISTM 



6/21/72 15115 



PAGE 



ENTRY SMT, SMTEi PMT# PMTMi # PMTE# QO 

ENTRY PilExT#PL*RLI/RL2*PPTR#PTEST/PTAB/PJM 

ENTRY P ? MAfPl,PU,PACfl#PPTk2*PPTRU 



* THE FIRST ENTRIES MgST t>E SET TO THE EXEC AND Ct>MM8N SUBSYSTEMS 

# SM.T/PMT FORMAT 



* BIT o: IsPAUE IS lvEINu 9K HAS BEE'V SHAPFD 

* BIT i: isE/EC PAGE 

* BIT 2: IsK'EAp a .NLY PA oE 



BIT 

B 

BITS 19-23: Cr RE_. PAGE. 



ITS 3-s: PAGE STATUSt SEE RAJ FILE F6R DETAILS* 
ITS 3-18: *AD ADDRESS 



* IP BITS 3-8*1;?, THE PAGE IS INDIRECT* BITS 10-23 P8INT T6 

* The REAL GMT / PMT • 

$SMTPG7 2 7,2 POINTED Te dY KMT+7 



SMT DATA 4QB 
« M9NITGR PAGES 
__£. 1±2 1..JL 2/2; 2.. 3/.£.; 2. 4/.2;. 2.. btZ.i. 2...6*2*...2 Q# 2 



* INITIAL PAGES F:;R E / EC AND FJ8 

2 lbj j3; 2 16 B/3; a 176/3 ; 2 2jb*3 ; 2 218*2 



SNMSMT EQU *-SMT 

dSS NSMT+SMT-* 
S'MTE EGU * 



IF ExPMT 
SUSMT E."-u #-6 
EnDF 



SHARED MEMORY TABLE 
(SPECIAL PROPRIETARY SMT PAGES) 



FMTMl EG J *-l 

PMT BS5 NiuMEM*-.j9Bi PROGRAM MEMORY TABLE* NUMEM»35* 

PMTE bSS 

IF EX PMT 

$EXSMT1 ECO »-l 

$EXSMT pSS NXSMT EXPANDED SMT»S 



$EX$hTE b£S 

$ExSMTU E'^ ExSMT-lOOb 

XSMTEM EXT EXSMTE-1 



ENDF 



PMT 



PAGE 



9 

O 

# 






Q L Q w * 

$GTI DATA vTJ,QTI-PN£XT,^TI 

$QTIC DATA c 

$QI6 DATA. CyIO^Qia-"PNtXTiS:I& 

$0I9C DATA g 

$QSG, _DATA _ ^S^Sr.-PNExT/^S* 

$QSuC DATA q 

$3GC DATA v.-QC^aC-PNEXTi^jC 

$3QCC DATA C 



$QQE DATA jQE#aaE-PN£XT*QGE : 
$QQEC DATA 
QX EUiU * 



(AfBINb5)/PAOTABLE/' 



* PACT TAclE 

LL„"Li 

""I qjf. ,, f ""' Ji / 12 / 70 

PAC TABLE F9RKAT 

pnfxt; .NEXT QUE.UE vk NEXT FORK IN ^UEvE* LT Q«NEXT FaRKt 
PL: OQVQOOOQbOPPPPPPPppPPPPP 

RLU FIRST PSLUUQ-RDLAbELlNu REGISTER 

RL2: SECOND P^L^D f J-RE_LA-jELING REGISTER 

PPTR J DDDDCDDDDDDDKKKKK.KKKKKKK 

Op'JOOOOOOuCCCCCCCCCCCCCC 

PTESTJ OOOAAAAAAoTTTff tffTTTTTT 

PTABS LS^JJJJJJOi'^NNNNNNN.NNNNNN 

PIM: MRUEFEEEEEEEEEXYFaGGOOH 



VIC 



A*ACTIVAT I UN C^DDITI^ 
B«BR$ <H» DELAY 
OCHAIN ADDRESS 
D»L9WER FDR.< POINTER 
E=PR6GRAM INTE:RRJPTS 



o 






F«EXEC DRS F8RK 
G*F9RK NUMBER 
H«TIME 8UT INTERRUPT 



PMT 
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i0lN- 



I*N9N*TERMINA30 

j«j8B number 

K*UPPER F3R< P3JNTER 
L=;L9CAL MEMORY 
MaADD m M tM8RY 
N-PANIC TAblE ADDRESS 
PsPReGRAM'Ttfu'NT'ER " ' " '" 

Q»»N8N- TERMINABLE USER 
R?TERMI NATIDN PENDING 

S*SUfcSY3fTM""sTA"TuS 

TsACTI VATliiN TEST w&RD 

U»USER MODE 

V«6VERFU8^ 
W»TS BLOCK ASSIoNfi; 
X«EXEC STA TUS 
YaSYSTEM HIATUS 



iaDE 



ENDF 






PACT BSS NPAC+NPPAK 
PACT1 EQJ PACT>NPPAK 
PDATA EQU # 



PNExT 


L (w POATA + C'; 


PL 


EQU PpATA+1 


R L 1 


EQU PDATa+2 



PTAc 
PIM 

_# 

~$QD EQiJ 

$QTIQ EQU 

$QI&0 EQU 

$QSQQ EQU 

$ :j) Q C G E Q U 

Sf i,M Q t. Q fc,. Q 'v 



Euu PDATA +6 
EQU PDATA+7 



uie*-.iTi 

LvTI-PNEXT 

.<»U:\-_pne.x.t; 

.*Su-PNEXT 
dQC-PNEXT 
=.;uf>PNEXT 



RLE 


EQ^ POATA+j 




PPTR 


EQU PDATA+4 




PTEST 


EQU PDATA+o 





NQ. aF CELLS BETWEEN QUEUES. 



PNXTPI EQU PNFXT+l 

$PNX3 EGU PUF XT+3 

PL4 EGU PL+3 

PPTR2 EC*U PPTR+PACT-PDATA 

PPTRU EQU PPTR-NPPA k 



$ENDPMT 






F&RGET 

no 






PMT 
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O 



• 



o 



IDENT 6/21/72 15! 16 PAGE 

LJ5TM 



9 DEFINE CbFG*.CSUE#CE0F#CPT0P#C,,/CCKWRD 

D EFIN E CFLo#CSW/CSwl#CEQFl*COCev#CP 

DEFINE 5bTttP*FBA0K#FawRD/FlU'^oFiLE#BUFF#LvL/CBlP#CPl*CPa 
£ DEFINE CWET0*CKETl#CRET2^CKET3#CKET4#CTl # CT2#CT3 

DE;FlNE...CL;SA#CpSy^CUSX/D3KMET 



^ # THE FeLLOWliMCi TAdLES MANIPULATE CP BITS DIFERENTLY ACCORDING TO 

Z" _JL_____ThE CuRREnT VALUE UF LVL« SEE l£Pl AND C6MMENT IN FILE M« 

2 CM$K DATA b,7^B6#37bb/76b3'1777B 

m CSH LR^m ?<♦; LRSH 80j LKSH 15; LRSH 10; LRSH 



\j 



£?.„\ P A I A £*'2Q* 1 5*10* 

C^SKl DATA " Q, Mb6# 37~6b*76b3/Q 

BFP DATA 0>l'Ub#101t**mB*bf ltf 

BFC DATA 1/403/^OB^OBMOOd 



EjFCN DA^A -1* -4Gb# ^Ob* -M)b# -4Q0B 

* ********_*******##** OPEN AND CL9SE FILES 

* INPUT: AsDIGC ADDRESS DI"vIOED""bY <h""b«FILE PRIVELEGE BITS. 

• $c3RSl LDx «l-NFHEj uDA KM*; SkE E*BP/2; BRX #*1 
STXJ3FILE (FIND GLOBAL FILE NUMBER) 

LDA 5502 (RRJvELEGE MASK); LOB KM4QQ (IF DISC IS FILLING 

• * RESTRICT 8UTPUT T8 DELETES. ExEC SETS SS02*578 FdR DELETE CQMMAND* 
SKA _SIx_;_ Skd DblTS; LDA *57_6 _ ( G_K.._I F ...INPUT. BR L8TS 0F DBITS); 

SKc 5FILL (SKIP QN IF X»P TABLE FULL); SKE *57B 
ERu CKSb (EXEC TYPES DISC FULL MESSAGE F8R THIS ERR8R) 

_ LDl-. SSul; LSH £6; ETR DMSK; STA_ SSCJL (MAKE XBL9CK POINTER T6 

# LOGICAL 0I3C ADRS OR REAL DATA PR0DUCT DISC ADRS) 

bRM bSET (ASSIGN HIM A TS bFH) i S^U CERR2 (ALL BFRS ARE BUSY); 

_* INITIALIZE _CURS9R FLAG *aRD>GLFG ANDiSET UP CFLG TQ P9INT T9 GFLG 

TDA 3FILE; ADD »NFILE; STA SFILE; ADD ■GFLG; LDX BUFF; STA CFL3, 2 

LDb <M1; STB C3W1/2 

_LD1B J9b;_L§H 32; STA* CFLG*2; STB CP#2; STp CSw#2 

LDA FILE; SUB THREE; lSH 15; ADM* CFLG#2 

• LDA SS02; ETR k.377; MRb »-4b5; ADM* CFLG*2 
_____LTR SDpM*; SKA Sl_x; 3RD CNERK-3 (BIT MAP NST SET); 



CN3 



CN4 



1 



CN ! 



CNg 



C9K 
CN8A 



LDA SSol; SKG ZERQ; BRU CN3 

LDb* CFLQ#f J ; SkB SIX; MRG X4; LDB KM2; STB T 
LDB OMSKj LDX .-NFIUF- OPEN FILE ONLY 8NCE IF F9R 8UTPUT 
SKM EXBP>2; BRU » + 3; MlN T; MRG EXBP#2; BRX *»4 
LDX T; awx -CN3; SKA X4; dRU CNERR-1 (FILE BUSY); 
BRMJ^CC; LCA SSQli SKA DMSk; B.RU CN6 
CCUWx; BRM CB; STA T; CLA; STA LVL 

INITIALIZE BUFFERS For NE'w FILE 
LVL; LDA bi>FF; ADO BFP/2; XXA PUT A DISC ADRS AT THE 
f; MIN T; STB g#2 BEGINNING dF AN XBL6CK* 

JUFF; CAx; MlN CC+1#2 MARK BFR FQR WRITE* 

LVL; MIN LVL J SK5 »MLVL-3i BRU CN4 
o{j{F> [.da s2B2B2B25B; STA CCKWRD#2 



PAGE 2 



BRM 
EQU 

LDB 
ADD 



L D X 
LDA 
LDA* 



=2B7-1; STA CE&F,2 
bUFF; ETR DMSK; STA SS03 



STA XBP#2 



LDX 3FILE; LDB GFLG/2; SKB Six; MRG X4; 
CN? LDX 3UFF; SKN# CFLo/2; BRM CQMS 
LD A SSQ1; BKG_ZER8; 3RU CN_3 _ 

LD^~sMLVL^'ir"3TA "LVL; BRM"SETBIP~~ 

LDX BUFF; LDA CCKwRD,2i LDB Otci SKE «25252525B; BRU CN8A 
LDb* CFLOf'ci 3is.B = <tB4; BRU CnERR-4 



SKb K377; BRM QR (READ DBLtfCK IF N$T MAPPING) 

BRM DTS 

iiM_SCEaF_U_ LDA. K200; STA CttV#2; LDA .. FS.IzEj STACQ#2 



I 

CHECKSUM LEVEL 2 

LDA 8NE; STA LVL; liRM SETBJP 

LD^ CBlP; ADD bFC+l; CAx (X POINTS TO LFVEL 2 BFR) 

LDA* Co IP 

DIP 

SKA 

Ska 

IJJ? 

LDA. 
MIN 

cba 

IF 

BRM 



X7; BRM CkSUM; 
X7; bRu CN£A 



E6R* CBIP; LDB* CBIP 



FILE; STA SSOl; LDA SSQ3j 
0;: BRM NP9PX OTWWt--,M 



LRSH 2; STA SSQ3 



DISC s 3; 

IDER; 



t>RM" DP"2l 6M;~" ENDF 

UN DF; EIR; BRU CNEKR-4 



© 







o 



CN8B IDA TWQ; SKA ALARM; 8RU # + 2; ADM ALARM 

bRU CERRB SERIOUS* ALMOST OuT 8F OBITS OR XBP TABLE FULL* 



CN6 CLA; STA LVL READ ALL BUT LEVEL MLVL (DATA) 
CN6A BRM SETblP; LDA SSG1; ADD LVL; STA» CBlP 

Lfi.A_<£a6j_j»KM_.CR'«! , i .MIN LVL 



LDA LVL; SKG sMLVL-2; URU CN6A; BRU CN5 

ili s CERRC; MIN CERRCj M[N CERRCj MJN CERRC 
CNERR LDA BUFF; uRM bPUT; BRM MONCR; LDA KMlj LDX GFILE; STA XBP/2 
bRU CERR 



*BRS20 FuU "- CLtSE'A "FILE. RESET cf^ FOR ExEC" IF CLOSING COMMAND FILE* 

LDl: AD^Sn; SkM UCIN; bRU CCLb; CLB; STL UCIN; BRU CCLS 



$BRS17 CL"A;" Sf A" 'ucTN;~ "lDb""^NE; STb"uCfcHJT; 8RU CLSALL (CLOSE ALL FILES) 

$BRS147 LDA uCI.Nj LDB UCQuT; bRU CLSALL. (CLOSE ALL FILES BUT UCIN#UC0UT) 
$8RS77 ECiu * .<F-UEFINE The COUT FILE* CLBSF THE OLD COUT FILE. 
ET'" AQ;isk; X-1A UCOgT; 3RU CCLS 



$BRS157 ECU * C6PY LVL 3 INDEX 3L$CK TO USER'S MEMORY STARTING AT X 
bR N/ I 01 FILE_. DUMBER IS JN A 



C/A; ADO bf-P + MLVL; ETR ADMSK; MRG =27665; STA bl57A 

LDA bS.)3; ADD L>FC + hLVL-lJ ETK ADMSK; MRG «635B5; STA BX57A + 1 

LDx BFCMif MLV L-1 

B157A LDA eg; STA q,6; oHx B1S7A 



$BRSl-ol EfvU * REDEFINE THE COMMAND FILEt CLOSE THE OLD COMMAND FILE 

ETR A_D*SK; XMA UCI* 

$CCLS ~Euu *" CLOSE fF~lLE"~" 

ETR ADMSK ; SKG T^O; i3RM NPOPx 
BRM I e I ; 8RM CLS 

LD/ J0b; SKN TTN0#2; B«U *+2; URM CDMS 

LDA FILE; bRM CL55; BRM NPQP* 



D 



PAGE 



SBRS8 CLABi* CLOSE ALL FILES«D&NT RESET C!N» 



CLSALL STA 
IDA 






CL2 



SKE 
MINi 
LDX 



LDA 



CTl; 3Tb CT2 

THREE; STA CT3 

CTl; BRU *+2; BRU #+3; SkE CT2; BRM CIS (RUN9UT BUFFERS); 

CT3; LDA CT3; SKG *3+NBUF-l; BRU CL1 

J8b; SKN TTNG#£; BRU * + 2; aRM CD M S 

THREE; STA CT3 

CTl; bKU * + 2; BRU * + 3; SkE CT2j BRM CLS5 (CLEAN UP); 

CT3; LDA CT3; SKG *3+NdUF-i; BRU CL2 

NPSPx 



PAGE 



$BRS174 E'w » mRI TE ALL pUFFER F0R Fl.LE . A. 6N.T8 DISC 

bk>' ; lei; SkG l^Qi 6RM NP$Px (0>i* 8R 2 NQT DISC FILES); 

Bk v CaALL (WRITE LVL 1/2/ ANp 3); BRM CW (WRJTE LVl 0); BRM NP8PX 



C2 



SEQENTIAL 1/9 R8UTINE FDR Wl8#Cl8 



$C256 ESU » 

LPx SSC3; LDA# 0; bRM 191; 

_B_F£_C£eFP.i SKfi_CP/ci_ BRU £2.. (EMC QF .. F_ILE.)j 

CF-i CPi IS WHERE THE FILE NEEDS Td BE P8SI TI8NED#SEE 



LDX SS03; STA* 



bR 

UR 



(CLEAN UP FILE W8RP); 
Wl8#Cl0t 



LDA 
ETR 

_kP. A . 

Li' <*■ 

SK V 
LDb 
LDA 



CP5S PSSITHN THE FILE AND MAYBE GET DISMISSED 
.Cl _ _ 

wi; ETR =400377773; STA T; LDA* T (IS HE EXECUTING A ClT) 

*177b5; SKE *13485i URM NPUPx (N8); MIN (YES); BRM NP8PX 

0; ETR «^0Ci37777B; STA Tj LDA* Tj ETR *77B5 

bUFF; uDb «276=b7537bi SKE »60B5 (WlO)j LDB K137 (N8T A WIS); 

v.S"/(".j S T j3 SSQl 

= ^ub; SkR C0v/2; bRU FJLlNT 
"<200; oTA cav/2; BRM TRAP" (166 MANY CI8/S 8R Wie#S) 






» 
S^CEXl 



_* *_* * * * * * * * •**..** * * * ** ..ERASE SYS POP 



EQu * 
LDA SSul; uHM CPx 
_S_k_n CSw#2_; bRu CERHi 
~" "CFLC372; " SkB FaUR; 



LDb' 

LDA 

LDA 



MAKE SURE MQDE IS OUTPUT 
bRU *+2; BRU CERR2 (LACKS ERASE PRIVELEGE) 



DRM 

BRM 
bRu 



CP#2; SKG CPX1; bRU *+2; BRU CERR3 (CANT ERASE BACKWARDS); 
CPX1; SK3 CPTQP#2; bRU **2; BRU CERR4 (CANT ERASE PAST CPT8P) 
P~E (ERASE) 
SCE8F1; BRM CkERR 

C8K 



(X o o 

D PAGE 

* ******************** S £ T CURSQR P8SITI8N SYSP8P 

SSCPX1 Ecjk, * 

LDX dUFFi LDA *42B; S«N SSQlj LDA «41b 

ClB; S<N ExECl; CAD; SKM* CFlG#2 

bRU CERRl (SCP PRIVELEGE MT ENABLED 8R WR8NG READ/WRITE M8PE ) 



LDA CE9Fj2, SKN SSOli IDA CPT8P,2; ADO SNEj STA T (MAX CURSOR PBS) 

# LDA SSOli bKM CPX; ADD 8NE; SKu T; SKG CB8F/2 

c-R„ CERR2 (HE ATTEMPTED Te P8SITI8N OUT 9F LEGAL RANGE) 

LDA CPXi; bRM CP9S (P8SITI8N AND MAYBE DMS) 

^ LDA SSC1; RSH 23; STA CS*/2 

"" __ LP A <2D0; STA C8V/^ 

!° bR v; Cl; LJ RM SCEBFli bRM CKERR 

M bRw CO*. 

V~J _ 

* ******************** READ CURS6R pSSITJQN SYSpQp 

# $RCPX1 EQO * READ CURSQK P9SITI8N 

B R M CPRIV; LDA CP#2i BRM CPVi ,>RM NP9PXB 

*SSPX1 FQU * SET CURSOR SIzEt LIMIT THE FILE SIZE* 

DR^__CaALL; ._t>R_M C/,; LDX . .bJJFF; S„KN#_. CFIG* 2* BRM CDMS 

LDA SSOl; SKA X6# oRU CERRl 

9 ADD sl^OQtf-1; RSH £3; DIV *l*OOBj SUB CQ# 2 

__SL A _ T _ H E IS REQUESTING THIS MANY OBITS 

LDA CQ/2i ADD DblTS; RSh 1 (HE MAY HAVE THIS MANY DBlTS) 

£ XMA T; SkG T; dRU 3SPX2 

LDA T ; Sk'J C:^H; L^A C«*2; MuL «l4G06/2; STB SSOl; BRU CERR2 

SSPX2 AD^' Cq.2; bRU CQK 

$RSPXj EQv * READ CURSOR SJZE PARAMETERS 

LDX auFF; SKN* CFL6#2; BRM CDMS 

# LDA CSIZE#2; MyL *1400B/2; STB SS02 PYHSICAL SIZE IN CHARACTERS 
L_D* C_G* Z\_ mul_ * 1^003/2; STo SS_.^3 REMAINING PHYSICAL QUANTUM 

LDA "CPTep/c-; BRM cpy/ ETR XX; bRM NPdRXB HIGHEST ADRS WRITTEN 






bit' ******************** BL8CK 1/9 R9UTINES 

BI& PReCEDgRE 









*: Biexi : 

J_ VALI DATE ARGUMENTS, I.xjlTl ALlzE TS VARIABLES 



D 
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*sbo: exit if biy done 

_* CALL _b" IS IF A PARTIAL TS aUFFE.RNE.EDS TO BE C8PJED 



* JBOC: TS bUFFER CA.ni N0w BE destroyed 

_* ___ INITIALISE dT4 WHICH SAYS H8* MANY DISC ADDRESSES ARE AVAILABLE 

* IN CORE MEM9RY WITHOUT A CALL TO CPOS TO READ NEW XBL8CKS. 

* SET SSG1 TO «QkQ COUNT FOR TOTAL NUMBER OF FULL DBL8CKS 

±_ _T6. . lE_ .READER ....*RljT_EN, _...._ 

* URAu> MEMORY. SAVE RELAtiELL I No FOR PAGE CROSS INTERRUPT ROUTINE* 



»iB?i B2.. F J 

* b2 CO 

* p2 CA 



GJRC 



DL 
LLS 



;B2w; 



GRAB 
RELEA 



DIS 

SE 



:b2 
:b2 
:B2 



r: 
c; 

Aj 

IS 8U 
NEXT 



T Of 

COM! 



S 9UT WHA 

S LESS TH 

B9 (THE D 

CALL Te 
R THE WOR 

k :DLt)CK; 

R THE DR(ji 

UTPUT BIO 
SPACE IF 

ISC SPACE 
LEARS DAT 
2C SETS U 
UTPUT THE 

SEQUENCE 
AND BuTPU 



TTnE 



[ DISC caMHA^pS, ARE... NEEDED. TB DB BlBt 
AN NEAT. MODIFY WITH CAUTION. 
ISMISS ROUTINE) IF 

G.P..BS IS NEC£SSARY._IflL_READ. AN XBL8CK 
D COUNT IS SuFICIENTLY DECREMENTED 

SAYS TOO ma;>iy PAGES ARE LOCKED F8R THE 
LIST CONTAINS.. TM MANY ENTRIES. 



DISC 



DATA &LOCk POINTER IS ZERO 

IF MEMORY BFR IS ZERO AND WRITE IS UNNECESSARY 

A dFR IF ThE DISC ADDRESS OF THE DATA « 0. 

P FOR PAGECROSS IF PAQECR8SS0VER IS iMMINENTt 

PREVIOUS DISC COMMAND IF THE NEXT DISC ADRS 

> OTHERWISE ADD 400B TO THE WORD COUNT THAT THE 
T BY BTC WILL HAVE. 



#:ks: dismiss m\ 

* OUTPUT ALL DISC COMMANDS BUlLT BY B2* 

* PUT_iER'? AT THE END OF THE PAGE CROSSOVER USER MEMORY ADRS LIST, 

* DO THE FIRST PAGECKOSS COPY U8QP IF IN OUTPUT MODE. 

* ?B3A: POSITION THE FILE AND GET DISMISSED MAYBE. 
» RE START THE SIU ■W_ITH_gPD.A TED ..VALUES OF SS01#SSQ3 



*?B99? 



FINAL EXIT* POSITION THE FILE 30 THAT ALL LEVELS ARE IN CORE 
AT THE N£rt POSITION. CLEAN UP AND RETURN TO THE USER, 



o 






o 



** B^IBJ B*I3 COPIES DATA bETWEEN THE TS BFR AND USER MEMORY. 

*:btc: all this little routine pqes is make one big disc command 



WITH THE -WL>RD COUNT IN WR8 WHICH ACCUMULATES A BIG VALUE IF 



* l8ts er consecutive disc addresses 

* holds the dblock pb inters. 

*:binc:" increment a fe* pointers 
*:bsez: see if a delock is all ieh® 

♦ ibPCT ! _PA3£ CRt)SS&v£R TlST.SjiIP IK PAGE 
^TbVTATS: 3 (bltf) VIA (BY WAY 3F) TS. 

* CaPY A TS DATA BFR T8 tiR FROM uSER 
»:BRMC: DETERMINE ..THE .2.. PAGES.. I N V.d .L VE D. ...1..N 



ARE IN THE XBL&CK THAT 



BOUNDARY 
(TS BFR) 

MEMORY 

ANY. PAGE 



IS IMMINENT 



cross 



dIO DICTIONARY 



*5S01 



* S S G 3 

#WRty 

_* 

*WR6 

# \s R o 



yy l' h u 
USER 



■» SLbw LY GET S D ECREMENTED T O Q AS B_I8 PRECEDES, 



'EMORY ADRS. G8ES UP AS je pROCEDESt 



POINTS TO A LIST OF* USER MODE C6RE ADDRESSES FOR 
CROSSOVER d L BCkS* 



BIO PAGE 
VARIABLE 
THE SIGN BIT ON. 



* TO THE 

#^R9 LESS Tn 
*WRll#wRi? 

"f S 



THE LIST _STA.LiI..A_L. W.R4+1. AND_. IS 
ENDING nITH A ^ERtUTHE ADDRESSES ALL HAVE 
AUDRESS TQ BE USED IN DISC COMMAND IF N8T GOING TO USER CORE. 
WORD C£_UnT_uSEP WHEN bTC ASSEMBLES AND OUTPUTS A COMMAND 

DISC* 

AN 4GOB» THE NUMBER OF bie U6RDS IN THE LAST DBLOCK* 



D 



PAGE 



♦ WR13 
# 



FOI 

I pTC J • 



USER'S REAL RELABELLING AFTER ALL MEMORY IS GRABBED. 

TS THE DISC ADDRESS FQR EACH DISC COMMAND. UPDATED BY 
mi3 GOES UP IN dIG JUMPS FOR WELL ORDERED FILES. 



$B.I8X1 Eg,. 

sk; 



0; 



BRM MONCR : 



LDX dUFF; SKN# CFlg#2; BRM CDMS (WAIT IF DATA IS M8VJNG)j 

SKN SSOl; vRJ * + S; bRM NP8PX 

_LDA _S_SD3; ETR_aDMS^; STa SS03; MRG X4;„ XMA SS03 

AD.: SSnI, Su L , -HOOuO.3; C^PY L#r;; SkA x<+; ADM SSOl 

LDx »wR4> STx' V >.R4 

STB 1/2_;_STB _WR6; ST^j *R8; STB WR9; STB BTCA 
T(RM"""CESFP 

LDA CSvm/2; STA WR5; LDA CP#2j STA CP1; SKA THREE; BRM TRAP 
ChEC< IF HIS SSOl IS TOO GREAT AND REDUCE SSQ1 IF NECESSARY 



f 



SUB* CXQFPl <E9F); SUB THREE (LAST FEVv CHARS); MUL X7 (CNA#RSH 2) 

SUB SS01 

SKA X4; pRU *+2; dHU **4; ADM SSQlj IDA <?402B5| ADM C9V#2 (EOF) 

LDB SSQ1; USH 26; ADD CP# 2 

SKu CPTePig; bRU # + 5; SKN *R6; BRU *+3i STA CPT8P#2; MlN CC+1#2 



PAGE 



BO IDA THREE; STA LVL; aR M SETblP; STA WR13 
BOA UDA THREE; STA LVL; LDA SSoll 3KQ ZERO; 8RU 899 
LP.A__dijFF i __ k Q£ QP*-di SKA...KM^Q.Q.i SKB CMSK+.MLVlJ BRU 13WIO 



BOC 



E P ' * 
_BRM ...Cw; UDX.._.BUFF; LDA KM1; STA . C C .♦ M L VjL / 2 .. . 

LDA CPl; ETR CSK + MLvL-l J E-Xu CSH+MLVL*1 

CNA; ADD bFC+MLVL-l; 3TA BT4 
_LDA__SSC3, _£lA_..t>Tl.; .ADD SS.O.li_.JS.sjB._0NEi.. ST.A..BT2 



IDA SSGl; tTR K377; STA wR9; CNAj ADM SSQ1 
BGRAB LDA bT2; SkG 6U; dRU BGRABA 

LDd» BTl; SKN aR5; ST3*.bTl; LDA_ K43QQi.__A.DW .. BTl; BRU BGRAB 

BGRABA LDl>* bTH; $KN v,R'i; STB* BT2 

LDA Rkl.1; STA ^HHi LDA RRL2j STA WR12 

J_2 LDA„_.?hLVL.-l; 3XA_.LVL. MAKE SUHE PROPER... CC .FLAG . IS REFERENCED 

* IF ANY L8* LEVEL R9UTICS CHANGE THE XBL8CK 

SKR bT4; bRU #+2; dRU B9 
LDA ^R8; RSH 8; ADD WR13J STA oT3 

LD^ 5SG1; SKG «R8; BRU B9 

LDA EIGHT; SKG DL6CK; BRU 69 
I£_DT5C<1 SEE IF DR_ LIST IS GETTING T9B FULL 

LDA DTxSl; ADD -NDRi>3; SKG NDCL; BRU D9 

IDA RQ1A; SUB. RQ3; SKA *4; ADD . ■NDRQ_*_3 

SKC^aNDRO-9; BRU * + 2; bRU B9 
E N D F 

C LA; SKN wRb; BRU u2R 
B2W SKt* BT3; BRU *+5; BRM CG; STA* BT3; LDX BUFF; MIN CC+MLVL~1#2 
LDA SSG3; ADD wR8; bRM BSEZ; BRU B2C 
LDd 3T3; bRM CESrf; LDX BUFF; MIN CC+MLVL*1#2 

BRM BINC; MIN WR13; BRU B2 



bKM'BTC; LPA BFC+ 



B2WJ 

B2R' SKE* BT3j bRU b2C 
LDA SSQ3; ADD *R8; App bFC^M U VLj ETR..ADMSKJ MRG <?636B5 



o 



B2A 



O 

* 

o 






CLb; LDX bFCN+KLVL; STA # + i; STB 0/6; BRx *«1; BRU B2W1 
LDX BT3; LDA Q*2^ SKG ZER6; bRM M8MCR 
_1P.._P.ISC<3 

SUB F8UR; lOB aK8; SKB Khli SKE *1*2j BRM BTC 
ELSE. 

_RS_H 23; DIv *4*8*2G»200 DlbC PACK CR8SS9VER IF B«0 

LDA wRS; 3^b <M1; SKG ZERO; bRM BTC 
IDA 0/2; Sub FbUR; SkE -1/2; BRM BTC 

E i\i ".) F 

LDA 3FC+MLVL; ADM wR8; BRU BP 

LuA dFC+^LVL; oRM ,,PCT; BRg b2A; BRM BTC 

y^....?S0_3> . S M„_>3777; BRg._. * + 2i oRU B2A 

h I >i aR4; 5TA-* t \R4 

D1K; £r<* BRM.C; bRM DLOCkI; LDX BRMCl; BRM DLftCKl 

LOx RL TS ; <-,RM DLQC Kli EIR 



PAGE 



LDA 3FC + iiLv'L; STA *K8; LpA BFP+MLVL; ADD BUFF; STA WR6 
MIN dT3; BRM BTC; ^Ru C2 



B9 



>RM J.TC 









LDA *^4; xMA- rt R4; C»PY AX/Bj STB 1/2; SKA WR5; SKG «WR4j BRU B9A 
DIR; BRM dvIATS; BRM BRMC; BRM DL8CKD; LDX BRMClj BRM DL8CKD 
L DX RLTS; oRM DLOCkD; EIR 



&9A E^U ► 
: CLAj.Jl-.a m^j AD'r.oSQl; uQA C PI; .BRM CPQSj^BRU BI8X1 



B99 LDA CFi; u-^M CPGS 
SK^_o;. oRM MtJN.CR 



LDA CRV/2; ETR ADMSK; XMA CQV/2; ETR NADMSK 
MRo* 0; oTA# Q; SKN* 0; MIa, o 
Ska >-v Rb; mini cc + mlvl/2 

bR k - "Cl; u> SSj3; ETR AQKSk; SfA SSQ3; BRM NP6PXB 

STA r ; LUH 22; ETR K377; STA T2; SUB K400 
CtfPY b/Ni SKG T; STA J 
LS_H_P;_ ADD_CP/2; LD6 CMSK+MLvL-1 j SKM QP/2; MIN wRX3 



BWIB1 



SKb wRb; MIN CC+MLVL>2 

LDA T2; ADD BUFF; ADD BFP+MLVU LOB SSQ3j SKN WR5; XAB 

AQP..T; ETR.. -400377773; MRG *235B5; STA BWI81+1 

CtjA; ADD T; ETR »40037777BJ MRG *27685; STA BWI81 

IDA T; BRM BINC; CAX 

LDA Q/2; STA 0#2# oRx BWJ01 

LDA CPi; BRM CPQ3; BRU bIQXl 



PAGE 



BTC1 



BTC '"'ZR'67* '"OUTPUT 8N~E b I Ci DISC COMMAND THAT C6MBINES MANY DATA BLOCKS 

LDA hR^; S*,G ZERO; dRR BTC 
_* FIRST MAKE SURE THAT A PAGE o8gNDARY READ IS NOT IMMEDIATELY 

* F8Ll£'aF.O BY A TS UFR REAL 

LDA WR6; SKG ZER9; BRU BTCli* PREVIOUS 1/9 INT8 TS BFR 

LDA 3T CX; ETR *7>*bhl SKE X2; BRU BTCl;* PAGE B8UNDARY 

XMA riTCA; uDb bTCB, LDx »4b7+l; BRM DTC (D8 S8ME USELESS »8RK) 
CLAb; -jRM dPCTj LDd K4B6; UPA X2i SKA WR5; LDA *62B6 
COPY A X/ GX (CR EATE INTERRUPT ...NUMBER AND READ/WRITE. BIT) 

RSH 5; C8FY AG, XB (PUT IN W8RD C8UNT); C8PY 8X#A 

SKO ZER8; LDA SSQ3; LGB WR13 

_3Tu j.TCBj. ST* ..GTC.X; ...»Kb. D.MSKi BRM..COTC 

msi brm cii mc 

STA. WR13; bRR BTC 

A R'EjalSTOR ARGUMENT FOR CALL T8 CDTC 

G REGISTER ARGUMENT F(jR CALL T8 CDTC 



BTCA 



bTCb 

BTCX 



L0> 4 
XM/- 

ST/ 



w R M ; 

iTCA. 

CLA; XMA 
LDA BJ3} 
0;* LAST 

la"st 



L 



BIN! 



0; # UPDATE 3301 AND SS03 F8R BIG C8*MANDS 8UTPUTTED AND INCR. CPK 

ADM SS03; CLB; LSH 2; ADM CPi 

MuL X7 (RSm ?,CNA); ADM SSolj pRR BINC 



BSFZ 0;* SKIP IF BLOCK EQUAL ZERO 

ADD <4Q Cj ET R s 4 QQ3 7 777p j ADD oil; . L P. B _K Ml L^LO X K M 



STA # + j. ; G*b 0*2; dRR bSEZ; hRx #-2; MIN BSEZ; BRR BSEZ 
BZl SKB 0/2 



wrr 



MIN- 3PCT; ADD SS03; ADD wRa; SUB 8NEj E8R SSQ3 
SKA <4uQ G; BRR BPCT; BRU* tfP£T 



o 

^^r 



40"**%. 



BTl 



BT3 
BU 
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* *****#»*****i****«** E^U OF pi© ROUTINES 

« READ OR aKIT E ON DISCj.iRS 124, L2h) 

* INPUT: AsCORE ADDR. B«DISC ADDR. x»*ORD COUNT. 

* FLAGS KuPT bY J^ip IN TT.M9. 

$ARDD LDx xlj... oRM DI.SC.Rk qRS 122. READ. DISODONT DISMISS. 



$A'a/DD LDx X5> o*r 
ARWDD LU A ARM-.H; 

"npopx"" 



$AwD 



SARD 

ARD1 
APD2 



6R^ 
bRU 

J-PA 
L D X 

&RM 

M I N 



DISCRW 0;* 

STX T2 

. SkA NADMyKi 



DISCkw dRS 12-i. WRITE DISC* D0NT DISMISS. 
JB XARMOT; SKG *^DRu-2 IS DRQ ALMOST FULL 
(NQ# LET HIM KEEP RUNNING) 
ARD2 (VESi DISMISS HIM, HE MAYbE DOING UTS OF BRS 122#l23S) 

x5i_.pR v ..ARD1 _.._ BRS. 125. WRITE DISC AND DISMISSt 

xl pRS 12^READ DISC AND DISMISS, 

DISCR.-i 

Oi_ b^M CDMbl DISMISS UNTIL 19 IS COMPLETED 

READ ft* WRITE ON DISC 



LDA 
b K /■> 

ADD 

"LP X 
LPA 

LUA 



3RM TRAP BAD CORE ADRS 

SS03, oKo K4000; SKG ZERO; L>RM TRAP BAD W^RD COUNT 
<77; bKM TRAP BAD WORD COUNT 

SSOli SUB ONE; EOR SSd; SkA K^OOOJ BRM TRAP 
SSG1* IDA q # 6; STA 0# 6 
3S:U; l.RM uTH 



PAGE CROSSOVER 



SS03j_KSH b; MrvG I2i CAX| LDA Tj LDB SS02 

• R 1 ' DTC; o^M DTS; 6KR DI3CR* 



* #***#****#*#**##*#♦# gjT MAP ROUTINES 

TABLEN EiSw TAoLLN THIS SYMBOL USED IN LOAD MAP 



6** EQU 710Q NUMBER OF MAPPED BLOCKS ON A DISC 
G A EQU * DATA BLOCK ADDRESSES ON DISC THAT DELIMIT 4 MAP ZONES 
DATA 77b/7 7&+Gw*77B+2«a*/77a+3«GWj77B+»»GW 



GAP o GA 

GA1P Q GA+1 

GBRAN Q;* RANDOM. HELPS SMOOTH DISC ALLOCATION* SEE GETBLK* 

MAPLBL DATA. RDP*100B+RwP MAP DISC PAGE IN M6 AND W PAGE IN M? 

BlTSUM 0;* BIT MAP CHECKSUM 
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ip uisc=i 






$GETBLK Q; * 

IDA " 

LDA 

GB6 SKR 



GBl 

GB3 



f~ ~u o 

u •-' d 



GB8 



GB9 



G56A 



LBCbIT 

* 



LDA 

LDA 

AXC 

SKE 
CXA 
LDA 

fc. ijj U 

LDA 
LDA 

CON 



rt o ►-' 

Srf 1 k~ 

ADD 
LDA 

ts R R 



3£6 
RE A 
DBI 

*AF~ 
.viae. 
= 4p 

3IT 
i_EI 

* 

<.3D 

3IT 

X4; 

VERT 

^3J 

GBB 
GBfe 

GET 



.. P_^l ADDRESS. QF AVAILABLE DISC BLOCK IN A 

A; ST A # • 1 

L; RSH ^3, DlV *TA3LEN; STB GBRAN SET GBRAN ONCE PER DAY 

TS; 6RU * + 4; LDA FIVE; ADM DBITS; B^M TRAP 

UjL; bR v RLAbEL 

T; ADD CiBSAii FIND G0UD PLACE TO START LIKING FOR A FREE BIT 

4 

MP* 2; BRU * + 2; bRX GB3 

*.ADMSKi. _ SKG ....»TAaLEN*l_; BRU _QB2.„. 

>*i i"RU GBl w-RAP AR0UND BIT MAP 

L- IT F3Li.N0. CONVERT wORD POSITION INTO BIT POSITION, 

e_LSn...._23.;.... STA Gb.y 

MP, 2; LRSH i; 3Tx GiiSi CLX; NOD 23; CXA; CNA; ADM GB9; CAX 

RSh 0*2; LUX G68; ADM ^ITMP*2; ADM BlTSUM; LDA G39 

oIT POSITION INTO BLOCK ADDRESS 

u\m »Ga;» DISC IN A. SECTOR DISPLACEMENT IN Bt 
; MUL K«QQQi LSH 23; ADD* GAP; ADD ONE BEGINNING OF DISC 
L «$" 2c;' DISC ADR3 IN b 

URM RLAbELi CBA 



bK'u .0163.6 

Of* CONCERT DISC ADDRESS l!\ A T8 BITMAP WORD ADRS IN LB 
_AND :iIT IN A, 

NO S<"lP i"F 3Ar' d AGE.""i SKIP IF UNMAPPED. 2 SKIPS NORMALLY • 
SKA .77000003BJ BRR LOCBJT (GARBAGE); 
MIN LOCBlT; RSh 2; STA LB9 



o 






f 



L89 



LBi 



ETR <3777 GET ARM p8SlTI6fv 

SKG* GAlP; SKG* GAP; BRR L8CBIT (PUT JN H6LE TABLE) 

IDA MAPLbL; BRM RLABEL 

LPA tB9; RSH 23; DIV K^OOO DISC NUMBER 

MUL pG'a; LSH 23; STA Lb8 (BIT NUMBER OF BEGINNING 6F DISC 

_kD^LB9;„ ETR... £37771. SUB* GAP; SUB SNE;. ADD LBS BIT P9St IN MAP 

RSH 23; DIV K30; ADD .BITMP; STA LB *8RD P9SITI8N 
LOA X4; Cdx; LKSh g>2; MIN LQCalT; ERR L8CBIT 
0;* INPUT T6 LuCBlT 



D 
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C; * 
E.NDF' 



DI 



POINTS Tci *>3RD IN BIT 
iC«l 



lAPt. 



IF DISCO 



* ENTER. C^MMA\D ~IN LIST'a^D L9CK MEMQ^y BL^CK AND DECREMENT TTN3, 

* As ABS CORE ADD*- 
» B« DISC ADD 1 * 



* X» wBRD COUNT 
$OTC £kO 

SKE DTCA; 

STA 



dtc? 

DTC3 



2TCA; 



i..:,R.u vTC2;.* RBAp IS REQUESTED. J n_ SAME PAGE AS PREVI8US, 
CXA; XMA DTCx; STB DTCB; ETR «74B6; SKE X2; BRU DTC8 
MIN DTCS'*;* LAST CMND * pI8 PAGECR9SS. STALL F9R TIME, SEE JIDBPRS 
J-DA_DTCA; tDB -740210B (GARBAGE DUMP AREA); LDX «4B7+4j BRU DTC3 

STA DTCA; 2Tb OJCoi STX PTCX 

Sid* EDCL; XAB; ETR PMSk; SKG USCTGPj BRU *+2; BRM TRAP 

h[N _AR?m; MlN DTXS1 

CXA; LDX EuCL; St'x PTxSg 

STl; l,p (CORE ADRS); STA 2#2 (*ORD C8uNT#ETC); LCY 13; ETR K37 

XXA; ADD ThREEj SKE .pRQU; B«U * + 2j LDA »DRQi STA EDCL 

D]»; b^'M DL9CKI; EIR 

LDl- jSbi LSH 37; LDX DTxS2l ADM 2#2 

LDX JCiS; LDA ■•2B5; ADM TTN6 # 2 



U) A «NDR'.,-> 

IF ST 

DIR; SkN STSw; BRU DTC9 



SuB DTxSl; SKj NDCLj BRM M9NCR 



LDA «RQP*if>OB + RSP; BRM RLApEL 
BRM SSS 

2 *^s5+5 



3L1B DTxS2 n PAGE 14 

1 REAL 
DTC9 ^ E I F 

ENDF 

SKlv .DTCSa; SKR DTC3»nj BRR DTC 
DTC8 LDA DTCA; LDb DTCB> IDX PTCXj BRU DTC3 

dtcsw data -i switch tq mElp ore call itself 

DTCA Q;* ARGUMENT FSR NORMAL CALL TO OTC 

DTCL U _ _ 

TJTTx g "~"~ 

$DT$ ^RS;# START DISC IF IT IS N6T ALREADY EXECUTING A COMMAND CHAIN, 

LDA <mi; x:-'A JTxSl; SKG DTxSl; &RR DTS 

ADC &NE; DIR; ADM r.PCLi SKG NDCLj BRU DTS1 
SKN ID C L1; bRu PTSl; MlN PSW; LDA UNIT; SKG ?ER9; BRM JDMG0 - - 



»TS1 FIP; E r <R DTS 

ENDF DiSC»3 

IF DlSC>i 



SQETBLK Q;* PUT ADDRESS OF AVAILABLE DISC BL8CK IN A 
LDA GB6A; STA * - 1 

l£A__Rf.AJLi .. S.SH_23.i._U.Jy. ._»TABLE:n; .STB.. QBRAN SET G3RAN aNCE PER DAY.. 



GB6 SkR DElTb; BRU * + 4; LDA FIv'E; ApM D3ITS; BRM TRAP 

LDA MAPLuL; BRM RLA6EL 
LDA DGL'Tj ADD GiirfA.* FIND G»ap PLACE T9 START LIKING F8R A FREE BIT 

MkG *4b4 
GB1 AxC 
G82 SKE aiTMPic; BKU » + 2; B RX GB2 . . 

CxA; ETR ADMSK* SKG »TABLE^- 1; BRU 3B3 

LQA » 4 B 4 (? qRU G81 
GB3 MUL <14 ; STb Gc3 

LuA""iI-MP, ;■; lRSm i; ST/ Go&j CLx; N6D 23; CXA; CNA; ADM GBS> 

CAx; LDA X4; RSH Q#2; LDX GBfc; APM BITMP^P; ADM BlTSUM 
_ LDA T4j oRm RLABEL ____ 

LDA MAPNVU MUL *8*20*200/2; BACj ADD G89; LSH 2 

BRR 3ETDLK 
GB6A BRu GB6 



^^ ^j^r 









O 



GBS 
GB9 
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LBCBJT" C7* CONVERT DATA PRODUCTS SECTOR ADRS I NTS BIT MAP P9 INTER 
SKA !?740Q0003Bj bKr^ L9CBIT; MIN L8CBIT 

ABC; DIV *3200Q*2;* A »DISC NUMBER 



o 

§ 



3kE: MAPNUM; BRR LtfCBlT; MIN LOCblT 

IDA MAPUU BRM RLABEL 

CL A ; DlV_K30; ADD »BITMP; STA LB 



CBX; IDA /A; LRSH 
L.RR L9CBIT 



\» 2 



L3 



$DTC 



ENDF DISC>1 
1? "DISC* 3 " 



MI 



DTC1 



ARMai; STt5 DTCtfSV; STB* RQlA 
XAB; S*A =3777774Bi liRU *+*; 3KE X7 ; BRM TRAP; ClA 
ETR L JMSK; SKG uGCTiP; oHu * + 2; BRM TRAP 

CXA; LDX R^IA; STB l^j STA 2/2" 

SKA SEVE-; BRU * + 4; LDB DTCBSV; SKB THREE; BRM TRAP ; bRU DTCl 

SKA =17 0d; bRM TRAP (ivQ DATA CHAl.NI.NJa....W_I.TH. LARGE WC); 

RSH i; [IR THREE; STA T; LOA c>2; ETR THREE; ADD T; SKG FQUR; BRU DTCl 

t R v TRAP (A SMALL *C REuUEST 8VERLAPPED A 2314 PHYSICAL REC8RD) 

LPB Jtio} LSH 37; ADM 2#2 

IDA q,? ; o'<M DP2lbM; LDx RulA; STA 0*2 

PUT f ti I T FOLDED CHECKSUM INT8 DRQ Sfi 620 CAN CHECK MIC IN P6LLD 

EttR 1#2; EUR 2#2; ST A T; LRS h & i E6R T; STA T; RSH U _ 

E^R T; STA T; RSH 4; E6R T; lSm 16; ETR »36B5 

ADD 1,2; aMA 1,2 

RSh ii; CAX; BRM DLdCKl _ . . _ 

LPx jftB; LDA «-2bb; ADM TTNfc},2; SK^i TTN6, 2; BRM M6NCR 
EAX RQlA; DIR; BRM iNCRy; ElR 

bRR r ^ 






DTCESV 0;* COPY Of UNTRANSLATED DISC ADRSt "GOBD "F8R DEBUGGING PURP8SES 
DP2lbt" G;* CONVERT DP ADRS IN A Id IBM ADRS IN A 









m 



* THERE ARE 32 100 wQRD REC0RDS PER TRACK 

* THERE ARE. £0 HEADS PER CYLINDER 
j* THER E ark. hOO CYLINDERS PER DISC 
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* FIRST aQRO t»F 3 aQRD DR(_ ENTRY SHOULD BE J 

* bITS oa CHECkSuM QR u* BITS 3-5 DISC NUMBER 

_*_ BITS 6-13 CYL»# BITS 14-16 HEAD* BITS 19*33 FSR 100 *8RD REC9RD 

STA"T; ETR X7 (CHECKSUM) j * M * T; ETR DMSK 

RSH ?3i DI v =32*20*200 PgT DISC PACK IN A 

_CGPY Bxit; LSH 18; ADM T (ADM PACK NUMBER 9NLY) 

_. ^a;"""rsh a3rDIV *32*20" (CYLINDER IN A) 

LSH xc, AOM T (CYL) 
LSH ^ ; ADD T ADD TO HEAD ANU RECRPD 

bRR "DPc-"h. M 

$DTS 



"LOb" R"QlA7""t : fD RqY; "bRR DTS 

E>"^ F 



$BRS66 E(jL * DELETE A FILE 
SkA SDg m ^; 8RM NPOHX _ 

LDB 0"NE; ""BKM"""'CDELli"" BRM PE " DELETE ~ALL BL8CKS " 

LDA* BUFF; ETR DMSn; STA B66A; LDB *666Aj pRM CE (REL» T6P XBL8CK 
. UD_A__<M1_; LDX B'JF'F; STA.CSirfl#2 

BRU CQk 
B66A 



$GRABB~lT:,U - *" f~RS 5 if. GRAB A BIT FR6r1 THE BIT MAP AND RETURN DISC ADRS 
« RETURN- AL-.AYS SkIPS 

Skn _SD^m^; _b«u *+2; BRM NPePx (E_RRf>R).;_ 

uR >,; 'JETBLK; MI>. o; BRM NPaPXb 

_$GRABBa_E'.U * t .RS 25* ._KA t > A PARTICULAR BIT IN MAPtlNPUTIS DISC APRS. 
SKXSDfiMh;" bRM CTRuI; BRM NPttPx"; BRU C9K 

$GIV EB Equ » L-.RS 30*GlVE BIT _T6 BIT MAP. DISC ADDRESS IN A. 
SKN SDuM>s; BRM CDEL3; h*r> NPBP A ; BRU C^K 

$LeC£LK ECU « t _RS 41. RETgRN DISC ADRS. .6f ..XU.RRE.NT _D_ATA _BL_LC.K 






o 



#*\ 



IDA THREE; STA LVL; BRM SETBIPj LDA# CBlP; BRM NP9PXB 

$BRS92 Eyb * SET FSUE, THE OlSQ SPACE.' QUANTUM PARAMETER F0R FILES. 
SKG *2B7-lj SKG »1400B*5*1; BRM TRAP 

*1^0GB-1; RSH 23j DIV »1400Bj STA FSIZE; BRM NP8PX 



$SDBM EdU * 

BRJ *,2; a Mi SDB>1A; BRU SDdMb; BRU SDBMC 



SDBMBD LDA <mi, STA SQBM8J BRU C9K 

SDBMA B q„ * GET MAF NUMBER* DETERMINE bll MAP .. z8NjEn 
SKA""s*|Cb; 6Rm""TRAP 
STA MAP-num STIRE THE NUMBER eF THE CURRENT MAP Z8NE, 

IF UIS C»1; CLb; ElSEi m.UL . »_320d.Q/2j ..EN OF 



STB T INITIAL 2314 RECORD Jb oE MAPPED 

LDA MAPLbL; 3RM RLAbEL 

IDA «.25j STA CblTS MAKE DBIT3 RUN 0UT EARLY. SEE GETBLK. 



LDA X4; LUx MAPNUM; LRSH 24+3/2; STB MAPBlT 

IF DISC*!; FA X QA,£; 3Tx GAP; LAx l>2i STX GAlP; ENDF 

LO>_»-TAtiLEN; STa EbIT-MP#2; BRx *•! CLEAR BITMAP 



LDA sTABtEC/8-1; STA T2; LDB «776B5 X C8NTAINS 
SDBMA1 LQA T; SKA «-2bbJ bRU 3DbMA3 SKIP IF P8SSIBLY IN EXEC AREA 
IF DIS OI; ETR K 37.77; S.KG «3677Bi S.KQ K7.7J BRU SDBMA2; ENDF 



SDBMA3 LDA DSCTup; SKG T; bRU SDBMA4 ( Ntf MPRE PHYSICAL DISC SPACE); 

LDA LIGHT; ADM DpH'S; CbA; ADM bITMP # 2; ADM BlTSgM FREE 8 BITS 
SDBM A? CbA; RCY..3, Sk^._X4; EAX 1/.2; ..LDA. __E I GH Tj ADM T; SkR T2; BRU SDBMA1 

SDBMA4 BRU C8K 



D 
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SDBM B E^w_* MAH._ALb THE DISC SPA.CE .J"_ 6 R A_.FJLE.. 

CLb; BR-1 CDELl SET UP SIMlLlAb T6 BRS 66 
uK v PE CALL DELETE LOGIC 

BRM SETCC; _LDA K*li STA CSwl,2_ 

LDA Q,Zi BRM CbRBl (MAP T9P aBLOCK); BRM MP6PX; BRU C0K 



SDBMC EQb *_ GET ACCOUNTING POINTER. MlN SQBM8 T© INDICATE MAP D9NE. 

MJN SDbM*; BRU C3K 






9F BIT MAP ROUTINES ««««««**««« 

*»«***«»*»*»«**«««#« LCJ^i LEVEL DISC SUBROUTINES 
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* SETS Fill, BUFF, GFILE, CPTOP 

* 191 DISMISSES IF FILE BuSY AND ACTS 8N POSSIBLE EXCEPTIONAL C8NQITI8NS 
» INPUT: Ag LaCAu FILE NUMqER 

* eUTPUT: AsLOCAL FILL. NUMBER* X «TS BL8CK BFR ADRSt 

$181 Q;* VALIDATE LOCAL FILE NUM# DMS IF BFR BUSYt TRAP 8N 1/9 ERR8RS 

ETR ApMSKi S_KCj_.T--N&i BRR 19 J; SKG »2+NBUFj BR J *+2; BRM TRAP 

FILE; CAX; LDX BUF3/2; STx BUFF 

CFl-j*2i SKO ZER8; y«M TRAP (FILE N8T 6PENED) 

.?.GFLJi._STA GFIlE (. I NDt.X_.„I.N. GLOBAL GFLG TABLE) 

=4B^; ^KN GFlLE; 3KA* CF L G*2; BRU 191? 
CS*#2; BKU UI1 

CP*?; SKG CPT8Pjg ; B RU » + 3i STA CPT8P,2; MIN CC+1j2 
Sk>«* CFLGic; a«M CJMSl; LDA FlLEj SKN CQ,2l BRR I©Z 
LDA .MLVL; STA Cj#2; LDB *4lGB5 (QUANTUM EMPTY FLAG); BRU FILINT 

_EGU * __FILE_J\ICT OPENED 3R U,.RECQVERABLE ERR8R 

SKN. FILE; t .WM CKfRR; gRM TRAp 

Q;« GEM'kATE SOFTwaRE INT tfR 7kap IF FILE 1-8 ERR8R HAS ©CUURED. 
LDA B <^; SKA# CFLo#?; BRU * + 2; BRR CKERR (N0 ERR8R# D8 N8THING); 
COPY Njtsi ADM» CFLg/2 (CLEAR EKROR FLAG) 

STB CSw/? ENTER READ M0DE 
LDA -^U'frio, BRU FILINT 



iei2 



STA 

LDA 

LDA" 

Skn 
LD A 



CKERR 



CDM$ 



.ACTIVATE AT :CDMSp: rtHEN DISC IS D8NE« 



0;« CALL PJP DMS . 

STA CDSA; bT 6 CDSoVsTa CDSXi ,jRM DTS 

LDA CD M 3; STA CRET1 cCDMSg: wlLL D9 A BRR CRETl AFTER AWHJLE) 

0; STA CRETO (RESTART THIS USER AT CDMS2) 
(SET UP SbRSRT IF N8T ALREADY SET UP) 



LDA'^CC 



MA 



5M 



X4, STA SBRSRT 

CDMSl 



CPY 



CPX1 

CPX2 



TRF 

RSH 

STB 







* C8NVERT USERS CP TO M8M T6R CP. MGNIT8R CP HAS k CHARS/w8RD» 
23> STa CPX2; CLA; DlV THREE 
^PAli...._LSH .?; ADD CPXll.STA CPXli BRR C.PX 



O 



o 






C p Y Q;* CONVERT MQNIT8K CP (4 CHARS PER WORD) T6 3 CHARS PER riBRp CP » 
STA CPYl; tTR THREE; xMA CPYl; RSH 2; MUL THREE; LSH 23 

_^ Ai^...£PYli LDx LUFF; SK^ CSa>2; BRU #+2; MRG X4; STA CPYl; BRR CPY 

O^Yl ZR5 

CERR5 _M]_N CERRC 

CERR4 MIN CERRC 

CERR3 MIN CEMRC 

CERR2 Mjv CERRC 
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CERR1 MI\ CERRC 

CERR CLA; x'iA Ct-RRCj 

CERRC :, 



SIA 5S03; dRm NP8PX 



CPRIV o;» ->uT PRJVELEGF. «*1ASk IN HIS a REGIST9R 
LDX 3UFF; LUB# CFLo/2; LSH 39; LTR »377B5 



XMA SSG3; ETR «40077777bJ ADM SSQ3; BRR CPRIV 



* CahPUTES a6RD CfiUNJ/ CeRE. _AND DISC .ADDRESSES F6R CDTCt 

* INPUT; AsINT. ROUTINE Nti • N£G, FbR WRITE. 



CRW 



CRw9 



G; * 

LDX 
LDX 

bRr< 

L X 
BRR 

ZRO 



FILE READ wRITE ROUTINE. GET DISC ADRS AND CALL LOW LVL DRIVER 

CRW9 

JURE; LDfc* CFLG/2; SKA X4; SKB TWO; BRU * + 2; BRR CRi* 
LVL; L^A 6FC+1#2; RSH 5; ADM CRW9 

_SETBIP; LDl.» C6IP; SKB KMlj bRU * + 2i BRM M6NCR; LDb CBIP 
LVL; LLA b^FF i add BFP+1#2; LDX CRw9; BRM CDTC 

CR.n 



Cw 



Cwi 



cw 



C;« FILE WKlTEtwONT WRITE A /ER6 BFR. GETS AND GIVES BIT MAP BITS 
b\< >' ^ETB lPj LDA LVL; AOD BUFF; ADD_*CC + L; STA CW8 
IDA <M1; X'"'A* CW&; S<G* CW*>; BRR C* 

tOA# DIP; SKA THRtEj BRU C*3 ( NON-DELETABLE DISC ©L9CK ) 
_LDx _L_V_L; LL>A By_F? i ADD qFP+2#2; _ADD Cw_9j STA CWI 

LDX""aFC7+lV2;" CLA 

SkF. 0*P; BRU Cw2; uR* Cw'l 

j^DB CEl p ; SKE*_CwlP; bRM CESw; bRR Cw 

SKE* CblP; BRU C*3 

LDX BUFF; SKN CS*1#2| BRR C* 

BR'" CG ; S TA* CblP; SKR C^8; m.I.->h»_._CW8 









CW3 LDX BUFF; LDA *4^B6; SKA CSwi#2i BRM CRWj BRR CW 
CW9 SkE 0*2 
CW8 



OALL 0;* START ^uFFER LEVEL 1# 2> AnD 3 WRITING* N8 DISMISS NECESSARY t 
L DA pMLVU'li STA LVL 
bRM CW; S*R LVL; LDA LVL; SKE ZER8; 3RU **4; BRR CWALL 



CR 



C*l 



v- U? w 



L. v*. o **) 



L_; * FILE READ. CLEAR jFR IF DISC P6INTER«Q* 

LOb CR; STb CRET2 

bR. M Cw; LDA* Ct-IP; SKA DMSK; BRU CRl 

U)X BUFF; SK>-u CFLUi2; BRM CDM3 1D9NT CLR YET*MAY £E WRITING); 

bK M CCLR; uRR CRETa 

LDA <2o6; L»RM CR*; bRR CRET2 



CMS c;» ue EVERYTHING NEEDED Tti P63ITI9N FILE Td CP SPECIFIED IN A 
STA CTl (PSSITIQN Ttf CTl) ThIS ROUTINE MAY DISMISS ITSELF* 
LDX _CP&S;_STx_CRFT3i LDX *NLVL«v2; STx LVL 



CPS1 LDx LVL; LEX CSHl/2; LDd <>M ; LSH Q,a 

LD'< 3UFF; LDA CF#2; SkM CTl; BRM Ca; SkR LVLl BRg CPSl 

CPSd L DX JUFF; uPA CPj£; LDX ■■NLvL 



LDb CMSK>NLVL/c; S<M CTl; D Ku CPS4* BRX *-3 
BRK DTS; DRM SCE9F1; BRR CRET3 
_CP3^_J^D A_„ CTli.. . ECK._CMSKl+NLVL+l/a;.„C^P.y AB#XA| LDX BUFF; STB CP, 2 

ADD s-mL'/l; STA LVL; SkG sMlVL-1; BR m CR 
LDX dUFF- SKN* CFLu/3; dRM CuMSj BRU CPS2 



0;* CLEA.\ UP FILE I/& S0 ThAT FILE PARAMETERS CAN BE CLEARED* 

ETR ADMSk; SKG sNbUF+2; SKG IwQ; BRM TRAP 

CAX; LDX dJ_F3*2; LDb CFLCa/2; _SKB KMlj BRU *♦?; BRR CLS 

bKM 161; LDA .MLVL-i; STA" lVL; BRM Cw; si<R LVL; BRU #-2 

6RR CL3 

~07* """" CLEAN UP "L9CAL AND GLOBAL" FILE PARAMETERS 

CAX; LDX buF3,p; LDB CFLCi/2; S^b KMl; BRU *+2; BRR CLSb 
BR M 181; Li^A BUFF; BRM BPUT; BRM M8NCR 
LDx GFILE; LDA'kMiTSTA xBP72 
BRR CLS5 
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o 









*Ex&GET EQU * dRS 144. LEND VERNE A BUFFER FOR AWHILE 
bKM 3GET^ bRM ^P%P< ( N9 FREE BFRS); 
LDA dUFFj SUB s340G03; STA S$Qij BRU C$K 



$EXBPuT EQU * BRS H5« FREE THE BFR THAT WAS B9RR8WED BY BRS mi 
ADD * 340C0B; BRM B.Pu.Ti MM... M8NQR J £RM___N£8PX 



BGET 0;* FIiNiu A FREE uUFFER 
__ . LPX... » - ^ b v£i. L a . . . x 4 



RSH 1; Ska FBWKDi oR\J dGEU; BRx **3; BRR BGET 
BGET1 ADM FBaRD; EA X NbUF43#2; CXAj ETR ADMSK; STA FILE 
LDX 3UF3>2; 3Tx jUFF 



MIN 3GCT; , ; RR : ,GET 

B p UT Q ; » F:<E.L._A TS jl» R • dFR„. ApRb. IN..A. 

L D X « » f\ o u F 

SKt 3UFN#2; I3RX *-l; SKE BuFn*2j BRR BRUT 

Ll^^4_; _LRSh Nb_UFt.l/2i_. SKA FbKHPj. BRR bP.UT 

AD* FB^KD; LDX BUF^P; CLA; sTa CFLG/2 
MI'-: jPJT; j..kR ^PUT 



WH OrTZh^ijl TS bL9CK VIRTUAL" AD«S"'T'e~"l6 BIT ABSOLUTE APRS. 
RbH 1 1 i LDA RLTS; lSH Hi STa T; BRR BSET 



CEeFP "o;*'~ SF.TCi.HF r6ImTER» CPTfctp' Ftf R'"~INPUT/ CE9F F9R 6UTPUT 

LDX -jUFF POINT TO CE9F UNLESS ( INPUT) AND ( CPT8P LESS THAN CE8F). 

CE9FP2 LDA CF'>F,2; u Dl- CE*FP3J S«N CSrf/2 



CEQFP3 SkG CPT9P,?; lDB CE9FP?; STb CEBFP1; LDA* CE&FPlj BRR CE9FP 
CE9FP1 G 
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SETCC u7*~SE"T" CuRS6R'CH'a^FD FLAGS ~"T9 INHIBIT" WRITES 

LDA -iuFF; ADD SETCC1; LDX **\LVL 

STA *+cii LDA K Ml; STA bU FF+NLVL/2; _BRx_*-l; LDx BUFF; BRR SETCC 



SETCC1 STA GC+Ni.V.L/2- 

SCE9F1 o;* SET CFSFl S9 THAT CI8#WI9 L6GJC WILL KN9W WHEN T8 CALL C256» 

hH^ CEaFP; LDA CP/2; MkG CMSk+MLVL 

SkG* CE'JFPl; BRU # + 2; LDA* CE8FP1; STA CE8Fl#2j BRR SCE8F1 



MP9PX d;~LDB SBRSRT; SKN 0; STB 0; B«M NPQPx 

_C1 yi* SET DATA uL^Ck (BFR LEVELsMLVL) CHANGED FLAQ IF QUTPUT M9DE. 

LDX BUFF; SKN CS*#2j BRR CI; MJN CC+MLVL#2; BRR CI 

SETBIP 0i* P8INT TS DJSC ADRS THAT IS IN PARENT BPR ©F BUFFER T8 BE 

* READ 8R *RITTE\ 

LUX oUF'Pi LPA CP#2i LDX LVL; ETR C^SK#2i EXU CSH,2 
ADD BFP jg; ADD BUFF; 3TA CblP; BRR SET&IP 



CCUR 0;* CLEAR THE l-FR SPECIFIED oY UL* 

LU X LVL; LuA bFP+i^.g.; ADD ciF'C + l#2; AP.D BUFF;_ADD *235Bb; STA CCLR1 

LDX bFCN+l/2; CLA 

CCLR1 STA Q,2; 8KX CCL^l; dRR CClR 
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CCLRX C;* CLtA^- ALL THE bFRS FOR A GIVEN FILE* 

ClA 
CXI S TA LVL; BRM CCLK; LDA LVL, ADD ONE _ 



SK3 «MLVL-1; bRU Cxi; DRR CClRa 



* SETS LP REGISTERS FfcR DTC 

« INPUTS AaCQRE ADDRESS^ b=P9lNTER TG DISC ADDRESS 

* X«INT» N:U AND wflRD CSUNT 



CDTC 07*" CURS9R DTC. FtfK FILES QNly'""" 

STA CDTCA; STB CDTCB; STX CDTCx 
S_K\ CD'TCx_; C RU C0TC1;* CHECK FUR SMALL W8RP C9UNT JF 8UTPUT 

SKA SDBMfc; bRR CDTC 

XXA; SKA s i;6B; bRU CDTC1 HQRD CQUNT GREATER THAN 40B); 

_ LDA* CDTCB; DIK; BRM C KSDM ; E IR _ 

* PUT CHECKSUM INTQ DISC ADDRESS AND HARK PARENT BUFFER CHANGED 

XMA* CDTCB; CAD; ETR DM3K; ADM* CDTCB 

LDA LVL; ADD D UFF; CftPY AX#bA; SKE# CDTCB; MIN COS 

CDTC1 LDX JUPF; LDA Tw0; SKA CSw # 2j SKA* CFLG, 2; BRU * + 2; BRR CDTC 

LDo 3FILE; LSH 31; Sk3 ZERtf; BRM MftNCRj ADM CDTCX 
LDA CD TCA; SKA X4; BRU #4-3; BRM dSET; BRU *■*■?; BRM DTH 

LD£* CDTCB; LDX CDTCX; BRM DTC 

LDX »UFF; LOA k4l?5; ADM* CFLG/2; BRR CDTC 
CDTCA 



xs 



o 



o 






CDTCB 
CDTCX 

CDTC 9 EdR G#c 
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PE 



PE6 



PE7 
PEl 



WF 



PE3 
PE4 

PES 

pF"Q 
r w x 



PE9A 



Hi* M6vE" TO CURSOR P8SJTI8N IN A. BACK UP CPT8P IF NECESSARYt 
J3TA CRET*; BRM CWALU IDA PEj xMA CRET4 

»UFFi SKE CPTdP#2; BRU PE 6 

CP/2; aMA CP70P/2; MlN CC+1/2 SPECIAL CASE. DECREASE CPTSP. 

QP?. CP£ IS THE FINAL G8AL ©F THE ERASE 

CP*2 START AT THE CURRENT POSITION 



,DX 
LDA 
_STA 
LDA 



STA CPl CP1 WtfKKS ITS WAY UP T8 CP2» 

B r l! C * A .LL; LDA CPl; BRM CP9S 

LD/ sMLVL-i; 3TX LVL; dRM SETBIP 

LUA CP2; Skcj CPl; ur<u PE9 (ERASE COMPLETED >j 

LUA CPl; ^A CfitiK + .lLVL; _bHu P£ J {.CLE Ait. A FRACTION OF DATA); 

" "' CP2; Sk C3 CMSK + MLVLi 6Rg PE4 (NO MORE FULL DATA BLOCKS); 
CPl; ETR CMSK + HLVL-l; EXU CSH-fMLVL-1 

KM1_ (CNA*_3Uu «1) COMPETE HOW MANY FULL DATA BLOCKS. •##■ 
jFC+KLVL-1; STA CT2 ••«• CAN BE DELETED WITHOUT I/0# 
CPP; SUB CPl; EXU CSH+MLvL-li SUB ONE; SKG CT2; STA CT2 



ton 

LDA 
EBR 
ADD 
LDA 
SKR 



CBIP 



MIN CBIP; LD6 DFC+MLVL# LSH ?6; ADM CPl INCR. CPl 1 DATA BLOCK. 
LOB CB!P> CLA; SKE* CBlP; BRM CESW DELETE A DATA BLOCK 

SkR _CT2; .BkU PE2;...dRU PEl 

HRG CMSK + MLVL; ADD ONE; SK'j CP2; BRU PE5 (CLR 6EG« OF DATA BLOCK); 

LDA CP? (CLR END OF DATA BLOCK) 

STA CPl ; -r^CLRRRli 6«U PE7 

LDX gUFF"; LDA"""CP^2; "SkE CPT8P/2;" SKG CPT8P,2; BRR CRET4 

LDA CP/2; MRS CMSK + MLVL; ADD e.NEi ERM CLRPRT CLEAR GARBAGE PART 8F 

lAST_pATA_,:-L9C< SO IT wjLL BE_R.ELEASED IF USED PART WAS ALL ZERO, 

LDX :±UFF; oK\ CSW1#2; BRU PE9A 

LDA CPT8P/£; STA CP2; BR\J PE7;# BACKUP T0 THE NEW CPT8P. 

ivR^CwALL; 6RR CRET4j# D8NT pOTHER TO REPOSITION • 



CLRPRT u; » 
STA 



CLP1 



LDX 
LDA 

LDX 



CLEA.n 

CLP9 

iiUFFi 

CLP3; 
3UPP; 



S8ME OF THE CHARACTERS IN A DATA BL8CK. 

CLEAR uP TO CLP9-1. START AT CURRENT CP« 
IDA CP#2i STA CLP8 CLP8 WORKS ITS WAY UP T6 CLP9 
SKG CLP8; BRR CLRPRT 
HI A. CC + ML.yL.#.2.i.. ...L.D.A__C.LP^.;...ETK .. CMSK+MLVL7 R.SH .2 .... 



CLP3 



CLP9 



CLP8 
CLP7 
CLP6 



CIP4 
CLP5 



ADD 
CLA; 

M__ 

IDA 

ETR* 

IDA 



3UFF; ADD bFP+MLVU STA CLP7 
LSH 2; CAX; SKA THREEl BRU CLP3 

CLP3* SUB CLP8; SKA KM4; BRU CLP2 

CLP6/2* ADM CLPSj LDA CLP5#2 
CLP7; STA* CLP7; tiRV CLPl 

CLP 9; SUB CLP8; ETR KM4; ADM CLP8 

X7 (RSH 2/CNA); C0PY AX/N/a; ADD CLP7; 
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MUL 

STA *+i; STb 0/2; dRx #-1; BRU CLPl 

_0 

o 

.DATA l,li2 

STc C/zcJ 

DATA 177777w*77600377B/77777400B 



ADD CLP^ 



CDEL1 0;* SET UP T3 DELETE 6R MAP A FILE 

LDX SSG1; LDX pUF3#2; LDA* CFLG/2; SKA »^B4; BRM NP8PX (I/O ERR); 
CS_.U2;._ LDA SSOU._BR.M_ie J 



LDA* CFLo/2; MRQ Ko77; STA* CFLG*2; LDA k*U STA CSW # 2 



LDA 



CPT _P_ p 



BKR CDEL1 



C^ELS 6"; *~ 
STA 
SKM 



"CDEL3A 
CDEL3B 



PoT A SIT I.iiTe THE olT ^AP. FREE A BUCK QN THE DISC. 
GB8 HANDY DEBUGGING INF6 F9R CE CRASHES 
SDbM^; BRM LOCoIT; BRR CDEL3 (ERR); BRU QDEL3B 
BRU CDEL3A (ERR/ BIT ALREADY MAPPED); 
MIN DBITS 



bITSuM; 



SKA* Lt 

ADM* Ld; A 

MJ__ CDELJ 

DRM MPDSC; BRR CDEL3 

MJM CDEL3; BRR CDEL3 



(QK# UNMAPPED) 



CGRB1 



Q 



GRA d "A PARTICULAR" &T'T "FR_M "THE Bit MAPV 



BRM L8CBIT; d RR CoRbl (ERR); BRU CGRB1B (LFGAL APRS NQT MAPPED) 
SKA* Ld; BRU *+2; oRU CGRBlA (ERR, BIT ALREADY GRABBED); 



TN"A"7""AS^"*""L"3; "A'DM""'"BlfsuM.i"" SKR DBITS 



MJ! 
CGRB1A bR ! 

CGRBlb MI' 



CGRB1, 

. hp ^. c f„.. BRR ... CGR ^l 
CGRB1; bRR CGRbl 



CG 



0; * 



GRAB A DISC BLOCK FOR A FILE 



CI 









LDA BUFF; ADD LVL; CAx; MIN CC#2; BRM QETBIK 

LDX 6UFF; NlN CSlZt*2i MlN. CC+1*2; SKR CQ#2; N6P 

6 RR CG EaJT w-ITH DISC APRS IN A AND BUFF IN X 
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* INPUT: B»3LSCK L8CATI8N INDIRECT 

CE Q;* ERASE A 3L6CK 

MQNCR 



CEl 



STB CE3; SkB 
LDA* CF9; SKA 

ETR DM SK; uKM 
LDA BUFF; ADD 
LDX 3UFF; MIN 



SDBM8; BRM 



BRR CE; CLAj XMA# CE9 



CE 



MSK; SKA THREE; 
CDEL3; BRM TRAP 

LVL; CAx; MIM CC*2 

CG#2; MIN CC+l#2i SKR CSIZE/2; BRR 
DAD F ILE WITH G03D CHECKSUMS, CAUSE IT T9 BE DESTR9YED 

CCK^KD*, GAKbAGE UP THE CHE.CKW0RD 56 FILE IS INACCESSABLE 
SETCC; MIN CC+1/2 (WRITE T6P LEVEL XELSCK ONLY); BRM TRAP 
0i*_P0lNT.3_I9.. k.IS.C. ADDRESS lit 1:N UNDELETED . 



MU 
bR v 



CESW Q;* CALL CE N9KMALLY# CALL CEl IF MAPPING A FILE* 

LDX _>UFFi,_LJ.x._j_S.Wl^._i. £x__.C£_.i_t4.iJ.2.i aRR CE.S.W 

CESwl BRM CE (CSaI «-l jiNQWMAL ) J BRM CEl (BIT MAPPING); BRM CE (BRS 66) 



L/ i * 



V 'AP 



IT 



SkN SDBM8; BRM M8NCR 

ST3 CE9; LDA* CE9; SKA OMSK; SKA THREE; BRR CEl 

CLA; XMA» CE9; ETR DMSK _„ _. 

t::K y CG^oi; BRM MPQPx 

LuA jufF; ADD LVL; CA X ; M I r^ CC#2; bPR CEl 



$ENDD 



**«***»*****«»»«*«** END 9F LG'a LEVEL ROUTINES 



FORGET 

E Q w * 
END 
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O 

§ 









o 



© 



— ^kkudjF — 



o 



IDEM 



LIST; 



6/21/72 15J20 
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ENTRY P81NTS 

ENTRY CTLI*TBSFI # TE8FI#TFSFI#PRDI#TRINT#TWI 
ENT kY _ CTRt#ETTW#TREAO#TWRtii»_KD 



TDT 

TjT 



TDT 
TDT 

TDT 
_____ 

TDT 
TDT 



TDT 
TDT 
I_DT 
TDT 
TDT 
IDT 
TDT 
TDT 



TRT, 

£ TT, 

~E'TT# 

TFT, 
_FPT, 

D8T/ 
021* 

D5L» 

wTd* 
._Wf_K#_ 

S F b t 

ETF# 
E T R / 

R E W 9 



GKS, 
S.K.5/ 

O ix <"• 

SkSj 
SKGf 
Sk3# 
SKSi 

SKo/ 
EOM* 

E9M# 
EQM» 
E8M* 
E9M* 
EQM* 
EQM# 

EeM# 



xcmo skip if tape not ready 

12010 skip if nqt beginning qf tape 

iiuio skip if nst end bf tape 

13610 skip if not end 9f file 

14olo skip if tape n6t file protected 

17210 skip if not aoo density 

16210 skip if not aoo density 

16blQ . ..SKIP I±"..N.Q.I .556 DENSITY 

/3610 READ TAPE BINARY 

#3650 WRITE TAPE BINARY 

J 2Q50... «RI_TE_.FILE *ARK 

^3630 SCAN F6RWARD IN BINARY 

-7630 SCAN REVERSE IN BINARY 

#3e»7Q ERASE TAPE FORWARD 

#7t>70 ERASE TAPE IN REVERSE 

14G10 REMIND 



SETXX MAC^S; LDa XX; STA TREALi ENDM 

SETRL MACN6; LDA REAL; ADD *18Q; S|A TREAU ENDM 



* NEW TAPE L6GIC 



* UNIT ASSIGNMENT 

* 1«TRIM# g«TwI, 3»CTLI# 4»TE©F1, 5*«TF$FI# 6'*TbSFI/ 7*PRDI 

* SRS lQg READ TAPE 

* INPUT: "A^CQRE ADDR". # n.^eRD COUNT, .xaNQ." 0F RECORDS <EQ 6R LT 64)' 

* 9UTPUT; l i*QRD AT BEGINNING 3F EACH RECftRCt 

* 9P C&DE F L AuS ? 

~* 0O*TAPE ^E'C'BRD WAS READ* IT mAD N W9RDS WHICH F8lL8W, 

* 01«TAPE REC8RD WAS READ* IT HAD N W8RDS WHICH F9LL6W# BUT 



AN ERRQR WAS HADE 



IQ FURTHER RECORDS WERE READ* 






TRPS 



C3«END 9F FILE* N0 M8RE READING. 

03-LAST TAPE RECORD DUE T8 LACK 8F C8RE SPACE. 

N9 M8«E RECSRDSt RECORD MAY HAVE QEEN TRUNCATED. 

04pTAPE REC8RD WAS TRUNCATED DUE T6 ©VERRtJN 8F 3 SEC. 

TIME LIMIT. (PERHAPS RUNAWAY) 
Q5»N 9 M9RE REC6RDS DUE TO REACHING SPECIFIED REC9RD C8UNT. 
C6«END 'JF TAPE. N8 M8RE READING. 
07«TAPE N8T READY. NO MORE READING. 
_lfi_sPAGF ^iijNDARY ERR8R 8N *RJTE. 
11 "TAPE -RITE PROTECTED. 
12»t)EGlN,Ni;^G OF TAPE. N3 WRITE* 
13sDEvICE i'.tt L8NGER ASSIGNED. 



PAGE 



* l<fsRU£8UT 

TREAD SKN TNUM; 

Sk^_ *' b I Jj 

SKN UNIT j 
LDA UTTY; 



L *.RM TRAP 

i<RM TRAP 

bRU BLKbSY 

SKE DEVCH; BRM TRAP; LDX DEVICE 



CX Ai ... SK G. ..ONE; .. &Ky... *,(!! i B_RM TRAP. 



STX TNU^; LQA SSQ3j SUB 8NE; STA TNR; SKN TNR; BRU * + 2 

t?RM TTRAP; 3KG KlOOi d«U * + 2* oRM TTRAP 

STB TWCNT ; SKR TWCNTi t jRw * + 2i bRM TTRAP; LDA SSQ1 

ETR ApMSK; STA TCA; ETR PGMSK; ADD TWCNT; SKA *77774B3J 

BRM TTRAP; LDX TCA; SRM GRBM*; CXA; BRM DTH 

STA TCA 

LDa TNUM; LDB RTi3W/2 

bRK TR5ET; bRU TRD*; LDA TRA, STA TMCA 

CLA; L DX 3SG1; STA ...0#6; UDA .. U.N.E.; STA UNJT 



LDA *-2tJb; LDx J8B; ADM TT.M8/2; STX WJ8B 

LDA TCA; BRM Wb 

LDA T Nu^j CAX; ADD TPDMS2; MjN TPDM_S#2 

- ;'" T T • 



CAl;; LDX 
TRD4 BRU TwR4+2 

TPDMS2 333 TPDMS 



3WM TFIN; >l I N Q; BRU NP8PDS 



* INPUT; A.TCA/ B*RTb 8R »iTB 
» SETS TRAs ( TC A) IN 91 . 

* SETS UP COMMANDS AT (TCA)-H 
TPSET ZR5; xAB; ETR TPAR; X AB 

STd TRD H; RCY 9; ETR *14GB* MR*i _p_21600Qfii STA JORDj IDA TWCNT 



U 



o 



o 



O (S L3 

LCY 

_kD A 
ETR 

STA 

MIN 



TPSET2 UDA 



ZER9; BRU TPSE.T2 

14; ETR *7774B^; STA TD2; IDA 6NE; SKB ©NE* ADM I8RD 

ICA; ETR ADMSK* ADD 8NE; ADM TD2i SUB BNE 

<377'7; ADD *:HGOOB 

TRA; b«M TRDi oRR TPSET; MIN WBIU 

TPSET; BRR TPSET 

*3pS; BRR TPSET 
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» TAPE READ INTERRUPT 
TRINT 



TRIB 
TR I 5 



TRI6 



TRI1 
TRI2 

TRI3 
TRI9 
T P I10 



rCA; ETR AQMSK 



LDX TNOM; ASCw; PIN TMAR 
SETXX 

LDA TMAR; CAb ; SuB TCA; §Tp 

3NE 

DEVICE.; dRJ #*2; 3RU TRI9 (L8ST DEVICE) 
DEVCH; BRU « + 2; BRU_TRilO (RuBtiUT) 

Eav- TFTa/2; i3KU TKI2 (EdF) 

8ET^ BRu TR 1 1 (ERR8R) 

IF DISCO; SKN DSW ; ,^RM ipMWj ENDF _ 
TWC.MT 



sic 

SKN 



DKU IKjTfT 



3bb; b"K UTR16 

7; Bku I Kit <WLL«JWO C8UNT ZERO) 



TNP; tiRu TRI5; MR3 S £B! 

EXU ETT/ ^P; .,au T^ I J (tMD.tfF TAPE ) . .._ 

STA* TRA; „DD £3NF; CNA; ADM TwCNT; CBA; LDB RTBW # 2 
BRh TPSET; BRU TRI6; LDA TRA; STA TMCA; CLA; STA* TMCA 
ikA_JL NF -*. STA UM.T; SETRLi bRu *RE.T 
S T A * TRA 
LDX TNjM; 



SKR TP0MS*2; NOP; LDA KM!; STA TNUM 



c T A 



»lb i u 



DRD 

MRG 
MRG 



M*G 
MRS 



K.g B5 ; . 
>5 



(FRRtf^); uHij TRI6 

(I3F)i BR o TRI6 

(END 3F TAPE); bRu TRI6 
»13kJb (L8ST DEVICE); BRU TRI6 
«l*3b (RUBOUT); 3RU TRI6 



= 6 



# BRS 103 WRITE TAPE. 

# INPi^T: A B C8RE address. 



* (A) COMMUNICATION FR8M SYSTEM It) gSER. 

* (A)+l 1ST REC&RQ *8RD C9U<'»T» 

» <A)+g THRU (A)+N+l RECeRD DATA. 



• 

■ 

• 



* (A)+N + 2~ NEXT RECORD WORD COUNT • 

* ETC. COUNT.o AFTER LAST RECORD* 

* BUTPUT: AsAODNESS of last RECORD* 
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twrt 



SkN TNUM; bRM TRAP 

SKN *BlU; iiRM TRAP 

Si<N UNIT; ,Jl{j uUKb3Y 

LQA uTTY; sSKF OEVCM; bRM TRAP; LDX DEVICE 

CXA; _Sk_Cj ONE; UKQ K^l; bRM TRAP 

STX "TNUHT UDA "SSOIV' ETR ADMSk "~ 

CAX; BRM GRtJMw 

1XS._.„ = 3^0.wQm; 3TA TuRL; CXAi. ETR._ADMSKi ADD .ONE; STA 0*6; CXA 
ETR <3777; ADD *34'jOOfc3i STA TMCA; EAx 1#2 

ADD Tw^; ADD 0/6; SKA *777*8<*; BRM TTRAP; CXA; ETR ADMSK; STA TCA 
LpA_o_ / {,_ ; _3TA T«CrsT; LDA TCA 
bRM DTH; STA TCA 

TNUM; ioa =HBb; EXU FPT'*,2; BRU TV.R4 

»l.rDbL.E.X.U .&TT*'J?J_ a.RU T.WR4 

TCA; LU-b *T6^*2 

TPSET; ciRg TWR4; lDA T*U; STA UNIT 

TRD5 

SSOU ADD 8NE; LDX SSOl; "STA Qt 6 



LDX 
LDA 

LDA 

tfKM 
LRU 



TWR4 AD 

TWR5 LDA <M1; STA TNUM; BRM NPOPX 

» UNIT buS.Y__ _ _ 

BLK3SY LDU TPDMG3; lDa »jTI; pRl nPOPDS 



» TAPE *Rl.TE INTERRUPT* 



TWI 



to'o u 
SETXX 

SKN DEVICEj BRm * + £; BRu T*l7 (LOST DEVICE) 
S<N DEVCH; bRU *+2; 3R~U twlio (RUBOUT) 
LET^i 3RU TWJl (ERROR) 
_If_D_lSC<3; o<N US*; jRM jqmwj ENQFj 
EXU ETT«/2; bRU Twl3 (END OF TARE) 
CLA; STA TPE*2 



LDK_ TNUM 



kpAji._TRA; ETR ADMSK; ADD ONE; ADM TCA; AQM TRA 

IDA* TRA; SkE /ER9; %RV *+8; BRU fwl6; STA TWCNT; UDA TCA 

F'TR pgMSk; ADD TWCMj SkA *77774B3* BRU TWI2 

CA.;_LDB_ w 'TS.Wf2; .BRM TPSET; BRU. TWI6 .. 



,D 

ETR P 
LDA T 



^ 












IDA TCA; ETR K3777 i ADD TURL; STA* TMCA 
IDA T^G; STA UNIT; SETRU 8RU *RET 
T W 1 1 IDA <ib5 (ERROR) 

ADM# TMCA; LDx TiNUMj SKR TPDMS#2j N9P 
IDA KV.n STA TNUM; STA ^ifejlU; BRU NIMT2 
IDA »6B5 (END 6F TAPE)j_6RU Twjfc 

*10B5 (PAGE evERRUN); B«U TW16 
=13bb (L9ST DEVICE); BRU T*I6 
»l*L3 : i (NU&'oUT); bRU Twl6 



TWI6 
TWI3 



PAGE 



5 



TM2 LDA 
TWI7 LDA 
TWI10 LDA 



# BRS 105 NEW TAPE; CONTROLS 

# INPUT: J A.»l.«N9Pi 2 = tiACKSPACE REC0RDA..._3»F.eR.wA.RD. SPACE FILE 



CTRL 



CTL10 



<+sbACK^PACF 



WRITE j INCHES BLANK TAPE 



^KA 



LDA 

SK N * 

_ska. 



STX 

EXU 

pR U_ 

LDA 

LDA 

CAX 



6 = 'nC^I-D# 7«*R1TE END OF FILE 

DEVICE; oK>y # + 2; BRM TRAP 

UtfY; SKE DEVCh; yRM TRAP; LDX DEVICE 

^blU, ljRM TRAP; CxA; SKG BNEj SKG KMl; BRM TRAP 

UNIT, .iR.U_bLK.bS_^i_..LaA_..iC.T.I!lCAi_.STA._IMCA 



T 



IN rtBlU 
.RU CT U 1 C 



(READY) 



rw~; 
TRT a/ 
T_CL 2 

PACPTR; "STA wRTR "'"" 

SSQl; SKG SEVEN; SKG ZLRd i BRM TTRAP 

fcRU* **2 



CRL6 LATA TR£A3/U:S r ^TFSF,T-3F,TERS#TREW,TEQF 

* REWIND 



TREW LDa TNjM 
TREw2 Exu REWW/2 
TREW3 URM CTLX3 



# BACKSPACE RECORD 
TBSR LDx _Tn ! j_m 

3TT W* 2; 



CTLX 

CTLX2 



t>R* CTLX3 

ETR TRAR; STA # + 1 

I$n. l6.VQ_QS.i POT XO 



Ex ; 

LDA Sh^v^s^; 

E X U S R b 'a > 2/ 

CeNT'RbL TxIT"" 
LDA THREE 
STA UNIT; CXA.;_ AiPp.JLPp.MSZi MJ.M .TPQMSj_2j_..CA&. 



LDA a-2-bSj LDx J0B; SIX ^J86; ADM TTNe^S 

LDA X4; ST a toPAGE 

BRM TFlMi UDX »3TIj MIN Q; BRU NP0POS 



PAGE 6 



CTLX3 ZRQ; LDX K*l; STx TNUM; STx WBIU; BRM NRflPx 

# C8NTR8L INTERRUPT R8UTINE* 

*CTLI BSS 

CTL12 ' LDX TnQM; SKR TPDM.S/2; NOP; LDA k'MI 

STA TNU M ; 3TA *BJUj LDA XX; STA TRLAL 
I F DISC<3 ; . S.KN.. DSyv; tfRM ..iDMw.j.. EN0F .. 



LDX fcjati; uDA K2B5; ADM TTN6 # 2J BRU WRET 



TERS 



» ERASE 3 I 
LDx 
LDA 
L D A 



TERS3 



EXU 
STA 



^CH__uAE 
TK'UM 



sllb'i; E'XU FPT«*2; BRU TfRS3 (FILE PROTECTED) 
= 6oS> E_XU ETTw/2; pRU TERS3 (END BF TAPE) 
ETFW/2^ E8M 16000b J P6T X4i BRU CTLX 
SS01; bRM CTLX3 






* WRITE E.\i/~9F "FILE "" "" " " """ 

TEBF LDX TNUM 
_ jLpA_ 5 _ii_B5;J.xu FP]^2; D RU TERS3 (FILE PROTECTED) 

EXU Eftw/2; bRu TEGF3 (END 8F TAPE) 

CLA; STA TPE#2 
TE9F4 EXU ETFW*2l E8h 16U00B; POT *4; LDA FQUR; BRU CTLX2 
TE0F3 MIN TPE#£;. LDA TPE/2; SKG FOUR:; BRU TE8F4; BRM TTRAP 
TF9FI LDX TNuM; EXU TRT W /2| BRU * + 2; BRU **2 
_EXU 'nF-'.a/L'; E-C)M 16u00bi P8T FMK 

LDA THREE; STA UNIT; &RU WRET 



_#_F8KwARD SPACE_ FILE 
TFSF LD/'~TN^r LDA *6~nb; E'XU ETTI*/~2;"tsRU TFSF 2 (E8T) 

LDA GF-ja#2; ETR TPAR; STA TFSFJ3; STA *+l 

^„ EXJ :}F^,2, Eb- i6UO0.b; PST.xO* LDA FIVE; BRU CTLX2 

TFSF2 STA GS01; vh* CTLX3 

TFSF I SKN DEVICE; BRU # + 2; BRU CTLI2 (L8ST DEVICE) 

__J<^i___J___^H;...jpRg_»+2j bru CTLI2. (RUB6UT) 

LDX TNUM; EXU TRTw*2; dm # + 2; BRU CTLI2 

EXU TFTW*2i BRU CTLI2 (EOF) 
__ EXU E TT*j2; okU CTLI2 (EOT) 



o 









SET XX 

IF DISCO; SKN DSW; BRM JDMW; ENDF 

LDA_FJVEi ST A gNIT 

TFSFI3 EXU SFBW#2; EBM 16GQ0B; P9T XO 

SETRL; B«U WRET 



PAGE 



* BACkSFaTF' FTLl". 

TBSF LDK T,\„M; 



TBSFJ 



EX v 
SK:j 
SKN- 



lXU BTTw # 2; bRh CTLX3 (E8T) 
S_Rbrt#2_; ETR TPARj 3TA TBSFl3i STA *+} 
SKd^j#2i Etf^ 16000b; P6T XQ; LDA SIX; BRU CTLX2 
DEVICE; BRU «>2i BRU CTLI2 (LOST DEVICE) 
DEvCh; BRU * + 2; BRU CTU I a (RUBfiLUT) 
fNwiM; tXU TKT^/2; oRU * + 2; BRU CTLI2 
TFTW/2; BRU CTul2 (EOF) 

: iTTw42#_b«U _CTLI2 {601) 

SETXX 

IF uISCO; SKN DSW; dRV JDMWj ENDF 

TBSF13 EX w SRb^iJL, EQM 16DQ0B; P6T_xO;_LQA Six; STA UNIT 
SETkL; &KU *RET 



UDX 

u. X ^ 

EX.- 



# LJKb 



lCo TEST DEN SITY 

A»C FctK 2QQ# Asi fqr o5 6# A«2 F8R S00» 



# 9UTPUT 

$TSTD2 IDA DEVICE; SkD $NE; SkG KMIj bKM TRAP; CAx; CLA 

E*y_J)2T>,_2; .RRU TSTD3;..._.lDA 9n£; E.XU.D5Tw#2j BRU TSTD3 

LD A - TWf); tAO DbT*#d; BRU TSTD3; BRM TRAP 
TSTD3 LDa SSj3; „ RU :<x?QP 



ZR- 1 



TTRAP 

# bRS IK 



$TSTRDY LOA 

pRM 



LDA ,<M1; STA TNUM; STA ^ B I U i BR* TRAP 

TESJ_TAP_E READY 

DEVICTT E>R "cjnE;"CAx;""Exu" TRTwi2; m"J m (READY) 

IP3PX (NST READY) 



* BRS 106 PRINTER DRIVER 

» INPUT : Aa CQRE ADDRESS/ aswQRD CttUNT 

* (A) communication *^rd from system tq user, 

* (A+l) PAPER CQNTR6L/ ;mEG F8R 3kIP# PQS F8R UP3PACE* 

# (A + 2)«MA + 3<t) QNE LINE QF DATA. 



(A+35) PAPER C8NTR&L 
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PRO BSS o_ 

LDA JTTY 

SKN *BlU; _RM TRAP; SKE DEVCH; BRM TRAP; LCA Twe 
5KE DEVICEj BRM TRAPj SKN gNUj bRU BLKBSY 

LDA SSOl; L'tf? ADMS<; CAX; BRM SRbMW; ETR »34000B 

STA TgRL; EAX W2; LDA SSOl; ETR K3777; ADD »34000B 
ST_A_TMCA; C&PY XA# ; ETR ADMSK; STA TCA 

ETR PGfiSK; A _ DD SSQ3; ETR NPGMSR; SKE ZER8; BRM TRAP 

LDA TCA; tJRM DTH; STA TCA 
LpA TCA; ETR K3777 

ADD *3<f000_; SI A TRA; LDA SS{)3; SUB fw8; STA PRWC 

LDA SS03, Sub IJNE; RSH 23; DIV »34; SKb KM1; BRM TRAP 
S*3 14000b (CA T); ^WM Ma NCR 

LDA a7u5; £<5 1206 JB ( PRT ) ; aRu PROS (N0T READY) 

LDA TCA; BRM a w ; LuA wPAGE; MRj RL^B; XMA RRL3 
BRM CHR 3; pRMPRS ET; BRM TFIn 

DRM Mp w= ._ CLA;" STA wblU 

LDX jeb; LDA _-2,5; ADM TTt\0*2 

.K.P.- ?R.v-*c».l; LDfc RRDMS;„...LPX . ■U.T.I i .M.1N..C.1. BRU NP0PQS 

33 B PRD^Sl 

LDx GSC1; STA 0/6; BRM NP6PX 



PRDMS 

PRD2 

PRSET 



JRQ.i_J.Px_ TRAJ. .|_DA Q/2; ETR S.vENj. CLBi LS.H. 9j MRQ PRSK 



P9S; 



pR(H 

PRSk 



PRDI3 



oK 

E&M 
STA 

MRQ 
EQM 

&RR 
E6M 



^?; MRG KeOD; STA POSL 

jbi LDA TCA; RCY 9; ETR *l>*n 



,_ up; mrg »ai6000B 

11 N ^_Jy;._LDA_TCA;_.EJJ^.^DMSKi ADD 6NE 



P J_____ 

= 33*4b'i; STA PRD6; EUM# P66QB 

1600D.J; PQT PRD6; LDA SEVEN; STA UNIT 

PRSET _ 

104 6 OB 

* PRINTER INTERRUPT ROUTINE 
PRO I LDA s34; ADM TCA; ADM TRA;_C8PY N/B; ADM pRwC 

S K N " P R v7 C ; :" p R.U~" P R T ^Si-f ' : T " " ;; { t|: ; o : iK "SS^SK^K^lSESSii^ 

LDA <M1; STA -AblU 

_SK* PPDMSli__Nt.P;..J_UA XX; JSTA .T.REALi BRU NINT2 

LDA *l36b; Skn DEVICE; BRU * + 2l bRU PRDI4 

LDA s_*b&; SKN DEVCH; oRU * + 2i BRU PRDH (RUB»UT) 

LD A *7o5i 3KS X20 60B ; BRU PRDH j_NeT READY >__ 



15 



O- 







4T% 



SE T X X 

IF DISCO; SK.N DSWj BRM IQMWj ENDF 

dH * PkStT; S£TkL# p^U *R5T 

PRDI4 STA* TMCAj BRU PRDI3 

PRWC ZRd 



PAGE 9 



* BRS 97# 9-s-p 99 

* THESE ti*S»S RESFT* INCREMENT AND KEAD 8NF 6F 32 

* COUNTERS S PECIFIED t;Y A 

SBCT ZRS;~LD'A SSOl"; CA'xi Ska"'««32i oRM TRAP; BRR SBCT 

* 3RS 97 

$WRSB BRM SBCT; UB.CTTAb;2; fcRM NP9P X 

j. R R S Q fe 

**I.\fc bR v CBCT; CbA; ADM CTTAS#2i bRJl NRSPX 

* 3RS 99 



$WRDB bR M SBCT; LDA CTTAo#2; 3TA S301; BR* NP8PX 
CTTAB BSS 32 



$ENDW L^A = ^V+4bb55b 
FORGET 

e n r?. 



m 








• 






• 


- ----- 




• 




9 

o - - 

§ 


■ 




• 








• 








• 








• 






• 








• 




; vT~ '..-vTV^H" y^ii?W^^^ r "^^"'? nr n : i : ^W^^: : '' : 




• 






• 






• 
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© 



o 



o 



o 



JET 



I DENT 

LIGTM 



6/21/72 15:21 



PAGE 



TUG £j&y__l ___ „_USQ W9R0S SENT TO TB0 AND K9RDS RECEIVED FR9M TBI 



$tqc 

TGC1 CLA; S<E. TO?; D *U * + 2; pRU TGC3 



LDA THIRD; DlR 

MUL TP,£; AXC; LDX Q#2 

UCY 2; CdPy Ax,XA, A b; EXU TGC5/2 



ETR <377; UDX rPORT 
SKG SEVEN; LRU TQCE 
MIN TGC 



TGC3 EH; BRR TGC 

TGC5 LCY 3; RCY 8; N8P g; 3RM M9NCR 



TGCt ADC s23GGQU3b+*; STA # + 1j EXU * 

uRv, TGCEu; tJR.M MONCR; L..RM ^NCR; BRM MftNCR 
bR v M QN.CR; bRM M(iNCR; tiRM MtfNC^; bRU TGCF7 



TGCEO LDA TINC3a; STA TGC1NC SET UP POSSIBLE TP,TC UPDATE 

LDA <Ml; x^A TGC; ADD 3.NE; STA TJNC1 
LDA 'jnE; ADD TP#2; MUL THIRDj AxC; LDX 0*2 



LCY ?; CuPY Ax-rXA^B; Exu TGC5#2; ETR K377 
LPx TPSKT; EIR; aRR UNCI 



T3CE7 EQv * r.NTER PRQQkAM FCH9 MbDE 
MIN TFj2; RST «7lY*TFl 

SKK TC/gj u;RU T3CU 3RM MQNCk 



*TGCINC TINC2 POINT AT TP,TC UPDATE SUBROUTINE 
TlMCl 0;* USED c,Y TGCEO 



TINC2 0;* KEMevb.. .1 CHAR FROM bUFFER 

DIR; SKR TC*2; bRU # + 3; mIn TC^2« dRu #+?; MIN TP/2; EIR 
TJNC2X bRR TINC2 



TINC3 0;* RESIT TuClNC Te POINT AT TINC2- MAYBE REM6VE TWd CHARS 
* FH®^ BUFFER 
STA TGCINC; LDA TlNCHXi aMA TgCINCi &RM XI NC£j _SKN . TQ„C_ 



• 



TINC3X BRR tlNC3; BRU* TINC3 REMQyE EXTRA CHAR " " NET PAGE 

$TWC 



STA TWA; SIX TWXJ MlN TRATE*? 
TWC1 IDA TP+1,2; SUb TC#2; SKQ TP,2j 8RU TGI 
IDA T0 2± SK_Q K377; BRU TWC2 



AdC; STA TT#2; UDA *-l~RCY; ETR TF?,?; STA TF2#2 

CbA; SKG s700Bi BRu TWC2 

LDA TFj^a; SKA *XY (IS TERMINAL IN x*8FF M6DE ) 

SKA xxaFFY (HAS AN X-8FF BEEN SENT ) 

LRU TWC3 (DdN'T SEND X-9FF) 

^RC?_.*X.I?FFY.... (SEND A-9FF A.NP .SET... .SAID FLAG) 



STA TFli2; C5PY XA#a; LCY 3; KRG ■200223B (XQFF); £RM TR8 
TWC3 LDA TC#S; LDti TFl/2; SKA WOCOB; SKB .IIHY; BRU TWCg 
SKJ^ ^AU^Y-fcj Y; bkd * + 5; LDB TF2/2; 3KB *BU3Y + B161 Y; BRU *+2 



BRU TwC2 (HIS PROGRAM CAN BE INTERRUPTED FR6M THE TTY WITH AN ESCAPE CHR); 

% LDA «HHY; ADM TFl^2j CQPY XA#B; LCY 8; MRG *7*235; 8RM TR8; LDA TC#2 

TWCa A DD TP/Pj hUL THIRD; X MA T*Aj ETR K377; AxC 

LCY ?', COPY Ax#XA/xb " " " 

X_MA*_TwA; E 1 R T'WMAbK/2 

ADM* fwA 

£ LDX T^x; MlN TC/?; BRR Tfc'C 

TWA c#* INPUT CHR. CHANGED TB BFR .Pe.INTE.Rf ... 

$ T »\ ! X * * P ^ ^ T 

£ TWCa RCY 8; LCY 8; NtiP C; BRM MQNCR 

T^-'MASK DA TA 177777b#77600377i3*-40JB _ 

TGCK Q; * REM9VE inH^N Nfc T SHo*JNG BUGS 

CLA; LDX .-NP9RT """ " ~ 

# TGCKO LDfc <M1 

TGCK1 3 Ku TC + .\'P9KT#2j t3RU TGCK3 
TGCK? tiRX TQCKl; dRR TGCK 
£ TGCK3 STA TGSUM; LDA TP+NP3RT#2; MgL THIRD; XMA TGSUM; ADD* TGSUM 

B Rx TGCKO; bRR TGCK 
TGSUM u """" --■■—■ - — - 

# TGSUM1 Q 

E N D F «1 






o 



o 






TGI 



M1N 



TG1A 



LD* 
LDA 



AD^ 
_UiA_ 



* GARBAGE COULECT0R 
TG1C 

TP*2; SUB TP-1#2; SUB TC*1#2; SKG K17; BRU TG3 
TP*2i MUL THIRD; STA TGBRXl 

TP-l#5i ADD TC*-1#2; ADD -EIGHT; MIJL THIRD; STA TGBRX1+1 
fceRxli Mul THREE; LSH 23 

TP>2i CdPi A8#XA; EAX l>?i E8R TWX; XABi SKB ADMSK; BRU #'6 
JPaEj AD5...F.LVE,.; MUL ..THIRD; SUB TGbRXl 



NET 



PAGE 



3 



CNA; C3PY AX#N 

ADD . s?76i.i5; ADM TGqRxI; ADD *235B5*276B5; ADM TGBRXH1 

STX T& RX1X „ _.... 

TGBRXl LDA u#P; STA j,2; ^Kx TGdRXI 

EQU * jARdAgE CbLLECTItiN FINISHED. TRY Te ST9RE CHARACTERt 
LDx T',,x; BRU Tv\Cl 



TG2 



cxt, 

EA>. 

MJN 



EA> 
LDA 

_Lp_A 
GUci 
ADM 

LDA 



TG3 Cxb; EAx -1*2; S<b ADMSK; iiRu TG1A 
NpFlRT 

JLG5C 

-1/2; LDA TP4l*2; SUb TP/2; SUB TC#2; SKG K17; BRU TG6 
TP*2; ADD TC#2; MjL THIRD; STA TGBRX? 
JP*1*2; Mu_L ThIKD; SUB THREE; STA TG6RX2+1 
TGBRX2; Mul THREE; LSH 23 

TP,2; EAx -1*2; C9PY AB*xA; E8R TWX; XAB; SKB ADMSK; BRU *-6 
TP/2; ADD 7C*2> MUL THIRD 
Cf^A; AQH Tv.DRXS; ADD &*E i C6PY AX*N 

ADD s276l>5; ADM TGuRX2; ADD .23535-276^5; ADM TGBRX2+1 

STx T BRX2X 

TG8RX2 tPA"o7?"; - 3TA"'"o;'2;" EAx -2*2; «Rx~ TGP ; " BRU TGBRX2 
TG6 COPY xAju; EOR Tax; SkA ADMSk; BRU TG5 

MIN ol DUFF-ER ZAP CdU NT 

. LD> ; "s-\PJf<l FIND THE BIGGEST BUFFER 

LDA TC+NPSRT#2; STX TG6X; SK TC+NP6RT+1* 2; BRX #*3; BRX #-2 

STA ilSMZ. Ptm AND SIZE 3F BUFFER ZAPPED* 

LDx ' TGftX;"^Tb""tcVNP0RT#2 ZAP if 

SET sGSBY, TF1+NPUKT INDICATE THAT HIS BUFFER WAS ZAPPED 
UP A <MJj_XMA TY1F-0F; E9R KMlj CAB (RFSET FLAG* C9MPLIMENT T® B) 

TG6X; STA TG6X (ZAPPED P8RT) 



LDA ■NP3KT; ADL .,.„.„. .... , _ %fc ... .^ .-.,., 

(CHECK IF THIS CHARACTER 13 THE SECOND CHARACTER dF 

BLE _ CHAR AC T ER PAI R * A .N D__I T 3 . BUFFER .. JU S T G 8 T I A P PEQ ) 



A 



o 



T WAG 
TWCO 
TG1C 
T35C 
TBRX1X 



SkE T»X} 3RU TG2 (NO, JUST TRY AND ST8RE CHAR) 

STA TWAO; LDA TwCj STA TWCO (SAVE CHAR AND RETURN L$C) 

JjiXi _b.RM .J>c. (RESTORE ZERO CHARACTER IN ZAPPED BUFFER) 



SKB <Ml; 
LDA TWA; 

„CLAi LDX 

IDA fwCOi STA TWC; LDA TwAQ; LDX Twxj BRU TWC+1 (ST8RE 2ND CHAR) 



NET 



PAGE 



0; * 

0; * 
0; * 




(2ND CHAR QF DOUBLE PAIRS WHEN ZER8 CHAR GETS ZAPPED) 
(8RJGANAL CALLER 8F TWC ROUTINE) 
GARBAGE COLLECTOR STATISTIC 
GARBAGE COLLECTOR STATISTIC 



TBRX2X 
TG6X 

BZSI ZE 






z«e 



STRI 



THT 



$TIX 
TRIC1 



Jrl?.* _LLa „ _ '...._..._ 

LDA ETBUl#2; bKE TFREE; BRU # + 3i MIN TRICl; BRU TRIl 
MIN TIICTR; EOR E.T E ^I#2i SkE <M1; BRM MONCR 
_LDA TFREECi_ STA EToI/2 
LDA TFREE; a MA LTbi+1/2 
IF TLCi 

M^N tLOGP; LDB K m 1; SKB* TLQfcPj &RU * + 3; LDB ■TL8GP+1 ; STB TL8SP 
EOR X4; STA* TL8GP; E8* X4 
ENDF TL^o 

J3HX„* + 1 ; L3^X *+2> LDX a-NToij 
CORY A"b,*x*A; LCY o; SKG KX4| 

CLA; LCY a; SKC, «\IP0RT-1; oRu 
XX A; ETR K377; STA TqCHR 



STX T IX 

bRU *+2; 
#+2; BRM 



SRM MONCR; STA TQTYPE 
M6NCR; STA TQP8RT 



BR* 
0; * 




TRI 

NEGATIVE 



INDEX INTO TBI 



9.TR0PAIR ^;* GijTP^T 2 WORDS T^ THE RING, THE SECOND WORD FIRST# 
STX TPAIKX> STA TPAlRl 

LDX"" T'Qx"; "EAX* "TRO'l ""' P'6 I NTER T 8 WHERE" THE "~FI RST COMPLEMENT GOES 

LDA TFREE; BRM TR8 ADVANCE THE POINTERS 

LDA TPAIR2; b«M TR8 STORE THE SECOND WORD AND ITS COMPLEMENT 

LDA TPAiKl; EOR Khi; STA 0#2j LDA TPAJRij STA \*2 1ST WORD 

IF TLOG 
. MIN T LS QP; LDB KMi, SKd* TL©GPj B«U * + 3; LDB -TLOGP+lj STB TL8QR 






o 






STA* TL9GP 
ENDF TL^GP 
I PX .TPAIkX 



NET 



PAGE 



BRR TRPPAIK 
TPAIR1 G 
*TPAIR2 



TPAIRX U 
$TR9TY1 



DIR 

RCY 3; LUA K77; ELT»< TF2.2; XxA; MIN CCT/2; CAXj LCY 8; MRQ K2B5 
_SkA «370ti 

LRu no; STA TPAlRc; ETk KM^GOi bRM TR6PAIR; BRU **2j &RM TRQ 
EIR; BRR TROTYl 



$TR9h ■ Q;* CALL Tktt IMMEDIATE* DONT SET ESCAPE LIKE TR8TY1 D9ES, 
DIR; RCY 8; CxA; LCY s'j MRG K2u5i ERM TR9; EIR 
LRP TRO'M 



$TR9 o 
*JN TftlCTR 

Sfx"TRL 1 X; " LDX Tt»X; E6R K^l 
TR91 STA TBS+32/2 
_______ b ______* ■*-__ ; L3RM M3NCR; E9R KM* 

IF TL6o 

MP-. TLeQp; LDd KMl; SKci* TLOliPj BRU * + 3; LPB «TL8QP*Ji STB TL9GP 
STA* TL'J^P 

ENDF TL?v- 

xMA* TR61; SKE TFREE; LRM :18NCR 
ERX TRtd 

L"J A TR01; ^DL"' ■32-^t68; ~SKt"TR3g; ADD-NTB©" 

STA TRtU M^VC T0 NEXT 3R&UP $F 32 8R WRAP AR9UN0 

ADD slf»-?3bfci5-^NT_3t);_ SKG ■T^Oj ADD sNTB© (189K AHEAD T8 MAKE SURE 

"""C~AX; LT>A "0/£ "" "" THERE IS "PLENTY 8F RQOM IN THE RING) 

SK^' TFRFEC; &RU * + c; bRU TR&2A 
CxA; $Ub siJBa/2; SKG *TB8-lj ADD «NTB0 

STA TRfiS*" "LET RING HALF" EMPTY BEFORE USING IT AGAJN 

LDA CLINTV; STA CLINTl 
TR92A LDX e-32 



TR92 STx T8x; LPX TR8x N ET PAGE 

BRR TRe 

TP9X Gi_* SAVEU x RLCilSTOR 

T9X DATA *33 INDEX INT9 38 W9RP GRU0P IN 9UTPUT RING 
TR99 STA TB0+32#2 



IF !L6G IF TL6vj IS SET FALSE# B300 MUST BE MQVEP S6ME WHERE • 
TL3GP * POINTER INT9 L#G BUFFER (WhJCH FBLL8WS) 
IF HSC<3 



RPT fOObi ##1 KEY THE L9G AREA WITH N9N»ZER9 CEILS) j ENDR 
A C C END 9F LOG BUFFER PLuS 1 MUST C9NTAIN A 2ER9 

L? ELSF DISC. 3; RPT 1003; **li ENDRi DATA Q 

~ *B300 LSD 30 Ob 231> SCRATCH ^FK. SEE QRMSET AND pIMt 

• ENDF DISC 

r» LN^^ .._ ._ .. 



END 






o 









TS84A IDENT 6-21*73 

DELSYM 
19RG EQJ # 



6/21/72 15J22 



PAGE 



L6C9RG MACR6 D;gSRG E^U #-18RG; 8SS D(1)«20RG; ENDM 
$% Ea^ 3^0006 



UOCt)RQ il 



Tf 



$SB«SRT IPU 



$WR4 BSS 
$5UTNSl Z R3 
$8UTNQ2 z^c? 



$8UT|M93 Z^9 
$SUTNB4 IRQ 
$6UTNQ5 z?9 



GSIN1 EXT 

GSIN2 ExT 
GSIN3 ExT 



STR8 



EXT 
EXT 

STR921 ExT 



STR92 



$ W R c 
$W'R3 
$WR31 



ZR& 
ZR6 

z*s 



$WR5 
$WR6 
$WR7 



ZRP* 
ZR5 



twR8 zne 

MR9 ZR& 

$wRic zRe 



-ExEC 



30 



GUTN61 
DUTN92 
SUTN03 
euTN§l 
8UTN92 
OUTN83 
STR93 EXT OUT-M^if 
GETNG1 EXT fcuTNei 

GETN02 ExT B JTN3 2 

GETNQ3 ExT 
GETN67 ExT 
*WRJ ZR£ 



UUTN93 
&UTN95 








$WR11 

*WR12 

$WR13 


ZRO 
ZR.e 


$UPU 
$UBA 


BSS 
ZR? 



TSS^A 



PAGE 



O'SED BY EXEC 



$U3B ZR P 
$UBX ZR6 

<U8RL1 ZRP 



$U6RL2 ZKG 

$UBE ZR- 
fUCIN £RO 

$uceuT zr° 

$UUNO IRC 
SUEXFLG zF ; 



LQCtfRG LJbb 



SEXRL1 ZR- 
*ExRL2 ZR? 
_iUPRBLX...„Z^O 
$UPRRL2 zKfe 



$SSRL1 ZR5 
$SSRL£ ZRT- 



3 U R E A L L n - 
$EX.ECL bSC- 
SUEXL6 



7 '"■ f:< 



SEXECLM EQU 
$ERC8DE zR3 



f.XECL-o^OOOEi 



ELSP 



Zh 



$XWR4 

XWR41 
XWR4 2 


ESS 

ExT 
EXT 


30 

XwR^+1 
X w ; R 4 + 2 


XWR43 
XWR44 
XWR45 


E~xT 
EXT 
ExT 


X W R *f + 3 

XWf<4 4 4 
X /«' R 4 + 5 



o 















X*R46 ExT 
XWR47 ExT 
XWR4E ExT 
XWR4E8 EXT 
BSS 
$XWR1 ZR8 
$XWR2 ZRC) 
$Xa'R3 2R5 
*XWR31 ZR6 


XWR4+6 
X w R 4 <♦» 7 
XWR47+1 
XWR^E+S 




FBR S RES9URCES 


Tl ZRO 

T2 zRe 

T3 ZRP 
Th ZRC- 
T5 ZRf: 

TS ZR3 




■- - - 


T7 ZR6 
T8 ZR^ 
T9 ZRd 






TIO ZR^ 
Til IHO 
SUBRSRT zr-j 


vv 


REFERENCE F9R XTl-11 SEE AF 


$8A3E bSS 
SUA ZRd 

$UB ZRS 






SUX ZR^ 

*cmrli z«e 

$CMRL2 ZR n 


-^— ~T77~— t- 7- - ----■;-«-- 




$UE ZKZ 

$cin zRe ■■: -^ 

$C9UT ZR6 




SUNS ZRD 
$ExFtAG ^Re 






L8C9RG 
*ExRLl ZR r 3 


lOoo 




$ExRL2 ZK- 
$PRGRL1 Z. p « 
$PR6RL2 ZRU 













TS84A 



PAGE 



*SSRL1 ZHd 
$SSRU2 Zk6 
$UREAL i ki' 
$ExECL Zkd 
$ExECA 2RE 
$EXECB Z Re 
$ExECa zr° 
$ExECR bSS 

$Ex£CL 6 Z^ 
$ERC8Dt ^se 



TS84A 



PAGE 4 



i 

o 



EXRU ExT 
PRGRL EXT 
SSRL ExT 
$R£MAC ZRS 
$AN8 zm 



$FDLUD L Z^-P 
ZRO 
ZRO 
ZRS 



$ L U J L 
$FDUN 
$GRU 



$NQRP 
$CR3 



ZR3 
$UNPTR bSS 



UNPTR1 EXT 
3>'''5Z2 2Kt* 
$UDTEhP 25 



$5W6C zrs v 
$SWPRP ZR C . ; 
$BRk1EL z^^ 


$FDAN 
sSUNH 

$NAST 


ZR° 
ZRP 


*UNM 

$UNM2 
$UNMP 


BSS 
&SS 
ZRS 


$UMMP1 ZR? 
sUNMPCF EQU 
$AFSV5 ZK2 



t-XRLl 

pruRli 

SSrvLl 



UNP'T R + i 



■ i c r' f ■ 



3#wNM-3#XvvRl 



LUD LGCATER FOR THIS USER (SAME wERIS) 



AS Sw F'6« TYPE 8F L8G8N F9R ACCTMG* 

STORAGE F..9R DISC* BUF. L8CATI9N 

bRS ^8/60 SWf# NEGt IF 43/60 

PROPRIETARY FILE SWt 

bR^TBL F8R ExL'C BRS'S 

FILE 6lR# ACCT» N8* 

INITIAL C&MMANDS»FRQM FILE Skit 

NEXT ACCeUMIN_G STORAGE (F9R DISC ERR.) 



%J 



o 



^Im^y- 






D 

O 

s 



$NiMCHX 

$ E R R S w 

$SW9FF 



1KB 



TSg^A 



PAGE 



$SWTM 

$PJ 
$PJ£ 



ZR5 



E>SS 



sEPj 

$flpss 

*FLX 



EuU 
ZRt; 



*GRCT 

$CMND 

$GRP 



$GAN 

$ebase 

T12 






7M r - 



T13 

m 

$TLVO 



zRe 
zkp 



( MAx_t_..A_pR ? . L778) 



L&Cti^G 2iob 



$DBF bS5 

$EDBF E^ 

*9vfp equ 



u- 



LLP ADR E. 
SSvFPl EQU 
$9VFF2 Ei*L 



*FOCt?M ZP& 



1. 2o 

i>.aF.+i.2> 

b V F P " 2 
Dvf-P + 1 
y VFP+2 



UV'FP + 'j 



$SSTIME Z ; <^ 
SSGID ZR6 
$INFIL zpe 



EXRFIU ExT 
$6UTFIL Z$b 
ECDFIL EXT 



INFIU 
VUTFJL 



*PVTSW 78^ 

$fiPhCN ZRS 

1LETF ZRa 



$LGRS Z«9 
$RSREAL Z«t? o 
$RSEND bES 7 



FIRST RESOURCE STORAGE 



TS84A 
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* PANIC TAbLEv, F3K EXEC F0W<S 



$ExSA 


ZRS 


u 


$EXSB 


ZRe 


u 


$EXSX 


ZRO 


G 


$ExSRl 


zn r - 


G 


$ExSR2 


ZRO 


V,} 


$ExSM 


_Zi<.L._ 


■J 



$SSA 

$SSB 



$SSx 

$SSR1 

*SS«2 



ZR- 
ZKS 



$SSM 

$GETST 

SSYSTL 



ZRS 
1B1 



L z$0 



*EFSR<Q E:> 



>^ 



»EXEC T EMP* ST^kAuE 
$TLV1 ZRV 

*tlvii zne 

$TLV2l ZR n 
$TLV2a Z«r: 
$TLV?3 Z R" 
$TLV3 ZK5 



* WORK IN 6 " S P A C E " F t? R E~a E C a K S » S 



© 



■ 




TlO 
Til 
Tl£ 
T13 

T2 

FNpTR+i 




• 
• 
• 


GFNl ExT 
G8FM ExT 
C9FN2 ExT 
G»FN3 EXT 
$39FNFT ZR9 
FNl EXT 
F^P. ExT 
$FNPTR BSG 
FNPTR1 ExT 




o 


IdPJH ExT 
I0PTR1 ExT 
LFDC1 ExT 


F:\lPTR 

MPTR + i 
Tl 




o 

§ 

o 


DFX ExT 
OF? ExT 
$GETPL ZR r> 


Tl 

T'2 






DELI ExT 
DELS ExT 

DEL3 EXT 


Tl 
T2 

. T.i.__ ._ 






FDEL2 EXT 
FOE I 3 EXT 
FPFL4 ExT 


TlO 
Til 

.. Lie ___. „ 






FDEL41 ExT 
PRMAl EXT 
CSYS2 ExT 


T13 

ri 

_...T1 .._ 






CDEF4 ExT 

CDEFb ExT 

RTRg EXT 


T2 
Tb 
T2 






PTSTAT ExT 

PTR3 ExT 
P TR5 £ X T 


JlH 

T'j 






$UN31 ZNf' 
DUMPi ExT 
ECDMP6 ExT 


T8 

Tie 






ECRV6 ExT 

ERB2 EXT 
ERB3 EXT 


Tie 

Tl 
Ti . 






D'RSW? ExT 

$SYSRRL Z-^v* 

KSYS2 ExT 


T3 
Tf 





















© 



O- 



TSg^A 



PAGE 



m 






• 
• 


$GBI8PT zRo 
$GBI6FN Z R 
$GBlS3w zRb 
$GBI62 ZR6 
$G8IBCR Z*& 
$GBI6C2 zRtf 







V 


• 


$GBI9^ ZRP 
$GET1 ZR6 
I6SP1 ExT 
$GET2 iHd 

IGSP2 ExT 

SGET3 ZRO 


oETl 


*ja 


GE T2 


O 


I?SP3 ExT 
$GET4 ZKt' 

iesP4 ext 


GET 3 
0ET4 




ZVEAR EXT 

$GET5 £R(? 
IBSP5 ExT 


GET 4 
GET 5 




ZM6NTH EXT 
$GET6 ZRR 
ZDAY ExT 
$GETFN ZR5 
I8FILE ExT 
ZH9UR ExT 
SUSRl ExT 
$5USR2 ZKC 
Z^IN ExT 


GETb 
GET 6 




OETFN 
GETFN 

A a F% 4 + 3 1 
SJGke- 




$SUSR3 Z^e 
ZSEC ExT 

SRSU1 ExT 


^ j u i) R 3 
XWR4>3c 




SSR3U20 z*o 
Z*S EXT 
$5RSU21 zRe 


GKSU20 




SSRSU3 ZRS 
$SRSU4 £Rd 
$SAVEIL Z^tJ 






$SAVEFL z^tt 

$SAVE9R Z^9 
$SAVESL ZRO 


w 

u 


A~ 








%J? 


o 



TSS^A 



PAGE 









9 



SENDCHR ZRtj c 




* 


PLUSiMINuS/PEKieD/E 


PLUS 


EXT 


SAvELL 


MINUS 


EXT 


SAVEFL 


PERIOD 


EXT 


SAVEDR 


EEE 


ExT 


SAVESL 


C9PY1 


ExT"~ 


savEll 


CQPY2 


EXT 


SAVEFL 


C8PY7 


EXT 


SAvEBR 


C9PYT 


EXT 


SAVESL 


CHFD 


EXT 


Tl 


MFDB 


EXT 


Tl 


MFD21 


EXT 


T2 


CFI1 


EXT 


T4 


cm 


EXT 


T5 


TIMEI 


EXT 


Tl 


TIME2 


EXT 


T2 


TIME3 


EXT 


13.. 


| ' *, ftw, d*« 


ExT 


19 


Tw^.SG 


EXT 


T10 


DGTCNT 


EXT 


x aR4> 3.3. 



USED BY FI6 - MUST BE NEXT T6! 



TS84A 



PAGE 



SPACES 


EXT 


OVFL 


EXT 


I9W 


EXT 


isfmt 


EXT 


DEXP 


EXT 


PJDEXP 


EXT 


SIGN 


EXT 


NC9NV 


ExT 


RUI91 


ExT 


RLiae 


EXT 


RLI94 


EXT 


RLI95 


ExT 


RLI86 


ExT 


RLI97 


EXT 


RNDFLG 


ExT 



FFL 

FFA 



ExT 
EXT 
ExT 



X wR44■3^♦• 
XAK^t^•35 

.14 

lb 
T5 
1/ 

T8 
T3 

JLV1 

TLV2 
TLV21 

TLv22 

TLV23 

TLV3 

6ET_6 

ud J&FN 
Gi3j8S : w 

QblQd. 



aUTSX EXT 

RNDX ExT 

RLITEX ExT 

At EXT 

A2 ExT 

A3 EX T 

I BLINK E*T 

$sw /Re 

$PjCSw ZR-' 
•FOLLOWING 



$ERRFLG z^ P 
$3VDGTS zRtJ' 
$I6D 2R0 

$ERR\gK zR^ 



GBIOCR 

«BI9C2 

SJii 5 <t 

T13 
T14 

• -- Lii- 

FORKING ON EXEC BRS IF NEG. 

PjC SW IF NOT gERQ HAS LUDL F8R 

5 gSED BY Fia ONLY (CAN COMBINE IF SPACE NEEDED) 
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PJC 



* PuShD6»N STACk 
$PDP ZHf_ 



$PDC 
*PDL 



1*0 



$SVSSL 
$ESAVD 



r; C C 

bob 
EQU 



EGU 
ZRO 
ZK5 _ 
ExT" 

ExT 



$SSYSTL 
$RLV4 

$TLV» 
EXPFLG~ 
DFLG 
$PSTRCT 

$9PDSTR z-<0 
$AFSV4 ZRC 
♦FALL OWING 
$AFSV6 ^R°" 
$AFSV7 IHii 
$SXWR31 ZRt? 
$G*REMA zRO 
$RPTN ZRb 
$OPTM ZRe 



ft 



R L v 4 
TLV4 



■p.l STRICT NO... ..F.ROM LUD ON NEW FILE 
FROM OPERATOR PSWD FILE 



L^CS» NOT i^ECESSARY IF LgD IS READ FOR PROg. COM- 



ROYALTY PRQGf TIME 6F ID CHANGE 
T„L v, 'E._C'iNTReL OF ..OPERATOR. STATUS 



~o 



Q 

-^k^^— 



n 








• 


$TlJZN 
$TC2N 







• 


XTl 

XTS 
XT3 


EXT 
EXT 
ExT 


Tl 
T2 
T3 


• 


XU 

XT5 
XT6 


ExT 
EX'T 
EXT 


T4 
Tb 
T6 


9 


XT7 

XT 8 
XT9 


EXT 
EXT 

EXT 


17 

T* 
T9 


o 

• 

o 


XTlC 
XTU 

XT12 


EXT 
EXT 

ut 


T10 
Til 

T 1 c. 


• 


XT13 
XT14 
$XT£ 


EXT 
EXT 

z«fr 


T13 
T14 






40^%k 



USED BY CDX IN AF F8R TEMP STSR UZ^NE 
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e: 



LbCKRG 60G6 
$UMCPU ZkC' 
$SVST IH b _ 



$RPCHG IRd 



SUPE.^VlSeR START IF NEG# 



$RPN ^RS 
$UZ8NE ZRD 
$ENDTS ZKS 



IF 



-EXEC 



FQRQET, 
EnDF 



END 



TS84A PAGE 12 



^W 









"©' 



^^pr 



o 



_ — „... _ .... — — _ _. ^m^up 



ID £ VT 6/21/72 15533 PAGE 1 

1111 M. 



* M9NIT8R M&DULE Q 
DP EQU •" 1 

$RAERT "EQ7"#-^X)0b REFERENCED THRU PAgE 6 BY RAD ROUTINES 
bSS 512 RAD ADDRESSING ERROR TABLE 



* 'DRMSET' 

* THIS ROUTINE" INITIALIZES THE DISC 1/6. 



DRMSET /Rfj 

LDA KMi; SI A u- I T 
LDX «>.NFILF- ; ST A EXBPi2;_ ._B_RX .. **1 

IF D I S C < 3 

LDA >DRQ; STA EDCLi STA IDCL 
LDA <Mi; S TA NOCL;_ STA IDCLli STA PTxSlj STA NSW 

LDA «02B5-20b5 (NtfP-EWM) SEE PP8F? IN PAC 

CLX; IF C; X S C * 1 i eko DSET1; E.MDF 
SkS 10027 b (DISC READY TEST); BKU OSET.li L^X ONE; ADM PP0FF#2 

SKS 10G22B; BRU USETl; LDx Tw0; ADM PP8FF#2 

SkS 100238; BRU DSETl; LDX THREE j ADM PP8FF#2 
DSET1 STX DPC CeUNT 6F DATA PRBDgCTS DISCS 

CxB; LSH 2^+lS; ADb «S6; STA D3CT8P HIGHEST DP SECT8R 

ElSF DISC=3 
LDA iSSQA; ADD »^QQQd»3; STA 2^„B_ REAL ACRS 8F 2314 SCRATCH BFK 

ENDF 

bkR DRMSET 



PR6TEC Z.Re ; * bET DISC WRITE PR8TECT SWITCH IF DISC JS WRITE PROTECTED* 
LDA <M1; STA R A p ; CLA; STA T 

IF D ISCO 

LDA =20002;.;-; LDX KM40 ~ CHECK DISC " 
RW1 E8 V - 10026b; P8T T; SKS 12026b; b«U **1; SKS 13026B; MIN RwD 
Ap^ T; bRX Rwl 

SKS 10027b; BRK PRUTEC; LDx *lu6i Sfx T; LDX KM<fO 
RW2 E6M 10027B; PQT T; SKS 12027s; BRU ##1 (WAIT F8R STATE 1 READY) 
SK^ 1_3027Bj_MIN *WD rwRJTE PR8TECTED1; ADM T; B«X RW2 



RW3 



R W 4 



SKS 
E6^ 

SKS 

eqm 

SKS 



10Q22B; 

13Q_22bl 
[002367 
10023b* 
13Q23B; 



ENDF DISCO 
BRR PR8TEC 



BRR PROTEC; LDX K236; STX T; LDX KM40 

P9T T; SKS 12022B; BRU #*1 

MJN RwD; ADM T; pRx R'W3 

BRR PR8TEC; LDX *3b6i STX T; LDX KM40 

P8T T; SKS 12033b; BRU *-l 

_MIN RwO; ADM T; BRX RW4 



SET 



PAGE 2 



CK205 ZRfi;* 









TELL EXEC WHETHER OR N8T 205 IS WIRED HIGH 

ARMI ARM205J MlN CK205; ARMI DIS205 
SKE C &ZQS + ci .MlN. .S,>:2Q5.i. .bRI._ CK205- - 



LDA * + l; xma 20513; 



CKXMA ZRO}* TEST XMA Qn READ 0NLY PAQE 

_ LQt «RSR + '+(,b; LP* RRL3; &RM LAuEL - 

LOA CKXMA2; XMA 43b; CAB J XMa */ 4 
CKXMA1 STB 43b; SkE 43B; MIN S*xMA; BRR CKXMA 
CKXMA2 BRU* sCKXMAi MINIMUM df 2_ CYCLES. REQUIRED F8R INTRPT INSTRUCTION 



CKRD £R0; CLoiZlLCH MACRQ Q;j EQU D(l) 
. EtiD 1C226j3 + 20 00B«J + P(2); PIN T 



LDA T; E6Q 1Q2266+2000D*J+D ( 2 ) ; PIN T; SKE Tj BRU *+2; BRU #-4 

LDA sl+2G00GB#JJ ADM T; E6D 10026B+D(2); P8T T 
EttD* 1 G00QB+D(2); E9D 142QGBj POT ?CKRPBF+100B*4Q4 



EQD 2226b+P(2)i LDA - 1^00000/ 1750/4 ; STA TS 



o K r '^ 

C..RJ 

EnD 



TS, i,RU *-l; SrvS* 10026t3 + D(2); BRU * + 2 

.*+6_; Ll;A ...SNE/. . LSH ...J;..._ApM..RAT.i SKS#...1Q026B + P(.2) j BRU #-1 



ZILCH o,o; IF DR; ZlLCH 0/100Bi ELSE; ZILCH 1/0; ENDF 

IF PR; LDx_».-_5.1.2; CLA ; __ ST.X„_CkRDBF+„L; STA CkRDBF; BRM H.RELB 



LDA CkRDBF; LDX CKRDbF + 1; ADD K40; BRX *-6; ENDF; BRR CKRD 
CKRDBF bSS 1000 6UFFER F8R CKRD 



CKMEM 



MPl 

MP 2 
MP 2 A 



0; * 

LDA 

_LDA 

LDA" 

LOA 
BRX 



SCAN ME MQRY "F0R" BAD" "PAR I T Y " " 

MP7; XMA 56B; STA Tl SAVE MEM6RY TRAP L8CATIQN 

RRL3; -T_A_T; ETR K37J STA RRL3 

RRL3; ADD MOO; BRM RLA8EL* LDX KM4B3 

340006*2 CHECK A CELL AND POSSIBLY TRAP T8 MP7 + 1 

MRP 



"O 






© 



— J^ — 



o 



LOA RRL3j SKN M48Ki SUp KlOOo; SKG «27006; BRU MP1 
IDA MR9; LDB MP8; LDx »10Q076Bl SKB KM1; BRM ST8P 
J a OA_lJLJii<M„RUAbe:Li IDA Tl; ST A 56B 



SET 



PAGE 



BRR CKMEM 



MP9 



MP8 
MP 7 



■CXiL_NUMBER IF CELLS IN MEMBRY...HAVING BAD PARITY 



G;» ADDRESS 0F LAST CELL IN MEMORY HAVING BAD PARITY 
l)RM * + l; u;* MEM0RY PARITY TNAP ROUTINE F8R CKMEM 

ST A 3<K,(&ja/_2. FlX._UP_BAO *MD _ 

LDA RRL3; LSH 5; ETR *37B#4QQQa; STA MP8 PAGE 8F ERROR 
CXA; ADD K^QQG; ETR K3777; AQM MPS 16 BIT ADRS 

MIN MP9; BH -MP2A 



RAOTYM 

* 



RM1 



v# 



* SYSTEM IS N9W FOLLY SET uP« IF RAD IS WRITE PROTECTED SET RMl 
PLUS F SR EXEC AND AS A SEPfRATE FUNCTION WHICH CAN BE OVERLAPPED 
:EP SETTING THE TYMNET KEY FOR 1/2 SEC S8 BASE KNOWS 940 IS UP. 
<Ml; STA RWRj CLA; STA T 

mA O OOP d /3£±1; „_y^x_g-^a2- ..... ... ...... 

ESP 10026b; P9T T; SkS# 13026B; MlN RwR; ADM T 
LDci FG940A; STb UPFLj LQfc> FG940B; STB UPFL + 1 

b R X R M 1 



K! 

LDA 
LDA 



BRR RADTYl 



SYSTEM INI TIAL! lE_R_9_yUH£. 



$SETSA Et.u * oECilNNlhG SF SYSTEM SET UP C6DE. REACHED PR8M SETSETt 
IF ulSCO; ESM l^OlOb REMIND ThE DSwAP TAPE; ENDF 



SET9 



LDA B RSR; STA RRU3; ETR K37; STA RLTS 
CLA; bPTl; LDA K*\i SKN M46K; STA M48K 
_I^_DISC=_3;_LDA 2; ELSE; _LDA ?2o; RSH 13; ENDF 
ETR <37; STA QISCN 
oRr. SSET; c.RM CKRD 
BRM DRMSET; B RM P RO TEC; BRM C KXMA; BRM. .CKMEM;.. .BRM RAQTYM 



fSET7 EQU * 

IF DISCO 
SKS 1 4Q2 6B; 

SkS 10027B; 

SKS 10Q22B; 

SKS 10023B; 



BRU 

BRU 
BRU 



M0NCR iPISC^HEADER SWITCH 8N ) 

* + 3; SKS 14Q27B; BRM M6NCR 

* + 3; SKS U022B; BRM M8NCR 
*+3; SKS 14023B; BRM MQNCR 






SET^f 



SET4 



ENDF 



CK! 



SET 



PAGE 



EIR 



BRU PACGOl 



START SCHEDULAR 



$SSET inZiji REGET SYSTEM 
ARM I AIRaD 

CLA J L_Sl^JitAk 

IPX *»77Bi LDA CLIWTC; STA iQCdiZt 

STA SETSE^T 

LDX *-NPAC*NPPAR; CLB 



BRX #-1 



LDA S $MT; STA ADRSMT 

SET1 UDA =7000006; STA PTEST/2 

CxAjL_ADO ... = PPTR^ ADD...rNPPAR; „ STA .. PRTPj. 2 

EAX iMPPAR-i/6; bRX SET1 

IDA »PPTR2; STA FPLST; STb PPTRU 

s;Tb_Pyc.TK 

LDX s<-\Pj^*4 

$SET3 CxAi ADD -EPUCT3; STA EPUCT/2 

EA X 3*6; b RX SET3; jCLBi STB _EPwCM3_ 

LDA aPUCT; STA FPULST; LPA «PUBPTR; STA PUBPTR; STA PUEPTR 
LDA SNE; STA CMPST 

$SET6 LDX ■wNPb RT; LDA KM1; 3TA EWERIS#2| BRX_#M 
LDX »-\je?bi CLA; STA EPMTP*2j oRX *M 
STA NftACT; lDA K13; 3R^ SETFfiEj LDA K14; BRM SETFRE 
L DA Kgg; STA T_S; Sub Klo; SKN M48K; ADD EIGHT; STA TSA 



LDA "Ts"; "b"RM SETFRE; MIN""TS; SKR' TSA;" BRU FRLP 



IF 

LDX 



DOIFP 
_KM100_ 
E.P'ePTtJ/2 

200b#2 



LDA 

STA 

bRX 

TlHF" 
LDB 8STU; CLA; LDX KM1QQ 

$KE eO Gdigj BRU * + g; ST.B ..2aQB# 2j BRX 

TNiJF 



.♦*3 



LDX ?wDTti- ! ADTE 

LDA W DTE /2; STA» aPTE+l/2j BRX *+lj BRX _»»3 









o 



UDA «ACST; STA PACST 

* MEM8RY CAPPING 

* PA QE- 7-L0G AND SET* PAGE 10«DI$C# 11*^ 12*NET C8DE AND TTY BUFFERS 



SET 



PAGE 









IF DISCO 
» EXEC IS L8ADED AT 12*16* NET AT 17. M6VE EXEC TS 15-21 AND NET TO 12 



UDA «17221?22b 

SETH STA RRL1; LKRl; PQT RRU1 SET UP T8 M©vE A PAGE 8F C8DE 
DUJ< <M^ti3; UDB 40006*6; STB 10G0QB#6j BRX *~2 



SUB «0101o4; SnE *111412226; 6RU SET? 

ExEC IS AT 15-21 AND NET IS AT 22» M8VE NET T9 12 

JJ^_.<M.t5.3 ;..„.. LDb .2000.0A/..6; STB . .14 00.06 # 6; BRX**2 



ELSf- DISCO 



READ SYSNO FROM DISC AND PgT IN LOCATION £QOB 

IDA <2C0; LDB =10b*4000bj »«M GDC 

LDA slQBG; STA_RRLl; LRR1; P0T RRLU UDA 75B#4; L.RSH 12; STA 200B 



UDA sQSCTuUi STA T4; 

DSCTBL DATA q , Up * 4 0J2 GB 

DATA 4QB*liB*4000B 
DATA 340b#12b*400Q6 
DATA 1 QQ^# 15j*4000u 
DATA 140LJ/ 16B*4000p 
DA T a 2006/ 1 7p *4000D 

DAT A 24 Qbi 20d»4 QQ Qb 

AT A"" 30 1~ / PI y~* 4 O'lj " 
DATA -1 

SETS LDv* DISCi,; LSh 2h+13 



LJRU SET? 

.U1S.C .C^uE _ 

W. BFR CtfDE 

NET C8DE AND TYMNET BUFFERS 

XXEC^PAQE.12. 

EXEC PAGE 13 

EXEC pAviE 14 
ExEC PAGE 15 
FI3 



A! 



LMUU bY__20P00.) ._ 

*2DJuJ'. -4003 + 200001? (20000-400 IS ARM P6S 62) 



2C00C M3VES '^JP 1 DISC Td SEC9ND HAUF 9F SYSTEM 
AQD» T4; MIN T4; U0t>* T4i Ml,\ f4 
BR^" "3 DC ""SET "DISC" T3 C5RE ~ "" " " "" 

SkN* T4; BKu SET2 
ARM I AJR^D 



ENDf* 






SET SMT'S AS QRABBED PAuES 

LDx .NSSMT-NSMTj LUA *1B7+1; STA SMTE/2; BRX *»1 
IF EXPMT^ t.Dx .-nxSMT; STA ExS^TE/2; BRX *»li ENDF 



SET 



PAGE 



# SET MQNIT9R AND EXEC RMT'S ANP RMC'3 



SETFR: 



AOi 



ad;. 

ADD 

STB 

CLB 

ADD 



<27; LDA .SMT; ADD 3NEj LDa 9NE; STB RMC*2j STA RMT/P 

-5Mj__EAX_i^2i.5KR MPQCi BRU **5 
RMC; STA KMTi EAx 1/2 

ONE; STB RMC/2, STA RMT/2 DISC CBDE 

3NE; EAX 2/2 _ SkJP 0vEr_ « CJDE« IT IS N8T AN SMTt 
RMC/2; STA RMT/2 TYM BUFFERS 

EAx 2/2 

MLj_Eax. l/Ei STb RMC/2; ST. A RHT/_.2i SKR_.EPQCj _.BRU **5 

*SMTi ADD TEN; STA Tj LDx KM5; STx T2 



SMTAD DATA 

EXP DATA 

MPGC DATA 

E P GC DATA 



LDA 

u>R- M REL; MIN Tj 

L D ^ a £ w g ; ' J U v_7 q j 

BR- 4 TY'lbET 
BR" SSET 



LDA 



T; LPX T2; BRX *-b 

SMTR..C7.i. LDA. ,SKTP.u7;.. SIA_ RMT/2 



N0« 
Nfl« 



6F EXEC PAGES *lt 
6F MONITOR PAGES»1 



'4 



>9» l?F. EX.EC PAGES-1+Fie 



TSA 



JL&LL STA n,; CAXi LDA «32.i .. BUM. RAINS j._ LDx TS; LDA KMl 

STA Rr'T/r"; CLA; STA RMC/2; BRR SETFPE 

ZR6 

7.R? 



WDTu 



WDRMT 
WDUMT 
WD31 



Eti: 



WDPIT bRM TRAP I; 
InDIMT 6R^ TRAPM; 



BRM TRAPR; 
BRH TRAPT; 

BR V1 INT31; 






4QB 


Q 


41 B 


Q 


43b 





44B 





31B 



JUL 






o 



WD 3 3 



bRM INT31; 33B 
IF 0ISO3 
BRb 1; C 1 

DR3; 2tb 

G 3RQU, 27b 
0R:a; R^IA 

"' '^J; Rbl 

<*; RQ2 

C R b 3 



SET 



PAGE 



KEEP FR0M M6MCRA5HING BN T89 FAST gPJNG UP 






E N D F 
WDPWNI BRM PUN I; 36b 
WDP^FI £KM PW FI; 3 7b 



wu 



CP 



WDIDM 
CLQCK2 BR 



t>R" CPJP; < 
bR* I9P; G 
bR" RAI1; . 
bR^ RADia; 
IF f*PH; 6W 



- o6d 
b7B 

; . 6 4.t. 

6bb 

i FPBVJ; 06613; ENDF 



WDTE 
* 



P9PTB 



CLINT;. ..0._7MB 

SKR CLbCKj; Q 75b 

bRb 20tb# 201 B 

uRJ .?_0?b_A. .0. ..?0?B 

IF DISC«3; bRM IOM; 
BRM Tq; q 20^8 

bRs> cG6oi b 2Q6B 
bRM MfiNCR; 2156 



2036; ELaE; BRU 203B; 203B; ENDF 



Equ * 

SYSPD P TRAN SFER . VECTOR 



BR V 

pRM 
bRM 

bR v > 

bRM 



bR^ 
BR- 



T R A P 

TRAP 

Trap" 

trap 

TRAP 

Trap 

TRAP 
TRAP 



b00B5 



&0*B5. 



BR M TRAP 51CB5 SET PAGE 3 

BR- TRAP 

_6R^ TRAP 

BR^ TRAP 

BRM TRAP 5HB5 

MU FFJ21£f; .... _____ _.. „ __.. 



BR,; IQFMEF 
3«L STFMEF 
dRu FFADEF 



bRU FFMPEF 
BRU FFQVEF 



bRU ■ 


FFUBEF 




bRo 


FFBIEF 




BRu 


R S P X 




b R B 


SSPX 




BRU 


UDFME 




BR j 


STFMC 




BR J 


RCPX 




BRU 


3CPX 




BR w 


PCLX 




bRU 


„.„..„ CLLS . 




BRb 


*cbp 




BRU 


SNfX 




BRU 


v j b i.> P 





URu FFDVE 
U FFUIE 



pi 



bRU 

BRU 
BRu 


HF.^Pt 

HFSBE 
HFADE 



5_?cas 








B24B 




B3UB 


.^34.6B . . . 





BRU ISCi B40Bb 

W kR^ oICl 

BR J f- FBBE 



BRU FFSIE 

Bkv SKPX offBB 

BRU $KIX 



BK.M TRAP _ B5QB5 

L~RK " TRAP 

bRU FFaDE 
BRw HFUMt 



554 B5 



o 










o 

O 



feRU 


*C1P 


BRU 


d I E: 


BRU 


CIE 


8RU 


SKbGP 


BR^ 


SKSEP 


BRu 


*CHP 


BRU 


jCIP 


bK\/ 


LDPP 


BRu 


STPP 



SET 
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BRb 
bRU 
bH'C 


SgRhE 

G R d 
FFKPE 




tRU 
13 R u 
[jRu 


L.S 

TClX 

TCSX 


EP0PTB 


bRU 
BRM 

t- u ^ 


l3 I e x 

TRAP 

* 


* 


IF 


■* ******* * 
b'T 



iOBb 



56<*&5_ 



570B5 



574B5 



STATISTICS 



$SS3 



Zk-3;* GT6RE. STATISTICS 

XMA SSS; ETR ADMSk; ADD *400Clb; CQPY Ax#B 

ssLae p e.qu » enter a statistic int.© table 

LD* 0#c; LCY 9; LQA* Q>2; XXB; EXU **2 



>RU 



*■<■ r o •-> 1 
5 P S S c 
u r is o 4 
SPSS'*. 

apsss 



ST8RE A *8RD AND RETURN 
ST6RE A '^9R D A ND CBNT INUE; 



SS9 



BR 
BRu 

BRu ____ _^__ . ,, _ 

bRu 9PSS6 
LRU SPSS? 

bRU 5PSS1Q 

BRU SPSS 11 

lisvi *__ SET UP S TATISTICS PINTER IF NEAR BUFFER BQUNDARYiExIT 
LDA SP; ETK K377i SKC3 *3*fOB; B^U SS9A 
EtiR SPi ADD »400B + 40B 
SKG sELDATA; BRU * + 3; LDA »LDATAj ADD K±0t SUB K4Q 






SKa SPl; BRU SS98 (N6 DATA QvERRUN); 

LDA s7500001B; STA* SP (DATA OVERRUN); MIN STSW; BRU SS9A 
SS9b XM A 3Pi CAx; LDA *76QQ002B; STA 0,2; LDA REAL; STA 1 # 2 
SS9A CBx; LDA SSS (CALLER'S RELABELLING); BRU SSRET 

6PSS1 STA#_SP; ___T1JN _.SP;__b_KU SS9 

6PSS2 STA* SP; MIN SP; COPY 6X,B; *Rx SSLOeP 



SET 



PAGE li 



©PSS3 CbX; RSH 6 jBb 
LP A PACQUE; RSM 6 

LDA PG**<fi R S H _£ _j 

LDA PACJUd; RSH 3 PACJOB 
LDA ACTR; RSH 3 ACTR 

. STB* SP; CUB; M]N SP; uRx SSLOOP 



PACQUE 
P34.4 ... 



8PSS4 CAX; STA* SP UTTY 

* LDA TTYdUK/2i C8PY pXju TTYBhK ($LD SJAT I ST I C.) 



LSH 6; ADM* SP; MI* SP; pRX SSLBQP 

GPSS 5 CfiX; RSH 8 

LDA RPAGEH; RSH 8 

LDA RPAGELi RSH 8; STB* SP 

CLB; KIN SP; 8*X SSLSQP 



BPSS6 ADD 3NE; b*U tJPSSU 



ST8RE A P.Ut ENTRY 



©PSS7 CWPY bX^ 

RSH IP; LDA TIME1; LSH 12; STA* SP; MIN SP; 8RX SSLQBP 



BPSS10 CAX; LDA *L1#2; STA* SP; MIN SP 

LDA RL2/2; STA* SP; MIN SP 
_ LDA PIMjc; STA* SP; MIN SP 



COPY Bx#B; BRX S3L08P 
BPSSH EQU * 



CAx; LDA Q,Bi STA* SP; MJN SP 
LDA 1,2; STA* SFj MIN SP 
LDA 2,2 i S TA * SP ; MIN SP __ 






© 



o 



o 






CdPY BX>b; BRx SSLS9P 

jSTGQI BSS BRS 27. TURN 8N STATISTICS 

BRM TRAP REM6VE THIS TRAP WHEN STATISTICS ARE CHECKED 0UT 

IDA X4i SKA SDBM8; BRM TRAP; SKA STSW; BRU SGI 
IDA *7*020QB j STA $TDISC 
IF ALSO 

LDA U639; STA L8G£ 
ENDF 



SET 
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SGI 



IDA. bLDA.TA; STA SP; STA SP1 
CLA; STA STC 

IDA STC; STA SSOl 



LD A <Ml; STA STSw; BRM NP9PX 



*STSTP1 D SS C 



BRS 2z* .TURN ..OFF... STATISTICS 



LDA xx; XMA STSw 

SKA X4; QRu #+2; BRU STP£ 
LDA RRL3; u RM S SS 

FINAL TE.RMINAT8R 



2 <*77Bo + 2 
1 RfcAL 

sTpa t, pA sp; F ir, Kmooj_ add k*oo 

ADD QNE; SkG «E:LDaTA| BRU * + 3; LDA »LDATA; ADD BNEj SUB 8NE 
STA SP; BRM NP&PX 



• 



$SDurp iqs 



DUMP 400b WORDS 6F STATISTICS DATA 



SD2 



CLX; LDA DblTS; SKu <<+QQl BRU 3D?. 
_DIR; LvA_* SP; SKE =75QG0Q16J BRU SDl 
LDA SP; EfR <H400; ADD »400B4-4QB 

SKo sELOATa; BRU * + 3; LDA »LDATAj ADD K4Q; SUB K4Q 
STA 5P 



SDl EI- 

&R« SETBLK; LDa SPi; STA 3776*a 
MJi_3TC£.._L^_STC # *..S_Ta. 37_4B#a __.__a.LBCK NUMB.ER 



xhx" std isc j cap Y " AbVXA 

ADD <1000; S<C3 *ElDATA; BRU # + 3j LDA »LDATA; ADD K400; SUB K400 
XMA SP1; LDX »4B7+10a_. BRM DTCi B«M DTS 



LDA <M1; 3K A STSW; BRU *+3; STA STSW 
BRu PUSTl 

Eau * running out qf disc space, turn qff statistics* 



t J* 



LDA SPU STA'.SP; LPA XX; STA STS*; B&U PUSH 

£ N [) f 

a Buffer shared "by lbu and statistics is defined at the end 
9f set by the l8ad hap 



SET 



PAGE IS 



Fa;«oET 

End 

















